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INTRODUCTION 


This  document  describes  the  orbit  determination  programs  and 
data  processing  programs  developed  by  TRW  Systems  for  the  Lincoln 
Laboratory  Millstone  Hill  radar.  These  programs  provide  the  SDS  9300 
computer  associated  with  the  radar  with  the  following  capabilities: 
satellite  orbit  prediction,  antenna  steering,  data  and  editing  averaging, 
and  differential  correction  of  the  orbit  elements.  The  programs  that 
support  the  radar  during  a  tracking  operation  are  fully  automatic,  under 
the  control  of  the  radar  hardware  and  the  operator's  console.  Th6y 
perform  sufficiently  fast  to  permit  their  use  during  a  radar  tracking  pass 
and,  thereby,  provide  realtime  orbit  determination  capabilities  in  support¬ 
ing  the  tracker.  This  facility  is  accomplished  by  partitioning  the  orbit 
determination  functions  into  those  which  can  be  performed  before  the  pass, 
after  the  pass,  and  doing  only  the  absolute  minimum  processing  during 
the  pass.  The  capabilities  in  the  real  time  programs  (MHESPOD)  have 
been  also  provided  in  a  stand  alone  support  program  for  nonreal  time 
use  (NRTPOD). 

The  processing  done  before  the  pass  takes  available  orbital  ele¬ 
ments  for  the  satellite  and  derives  from  them  a  steering  ephemeris  for 
the  radar.  At  the  same  time  program  constants  are  placed  on  the  steering 
control  tape  to  control  the  data  averaging  and  differential  correction  pro¬ 
cesses  during  the  pass.  This  tape  is  mounted  on  the  SDS  Magpac  unit 
minutes  prior  to  the  pass.  During  the  pass  a  processor  interpolates  the 
steering  ephemeris  and  causes  the  antenna  to  be  steered  toward  the 
nominal  path  of  the  satellite.  The  radar  operator  can  manually  superimpose 
a  search  pattern  upon  the  nominal  steering  pattern  to  aid  acquisition.  The 
first  observations  of  the  spacecraft  enter  a  preliminary  correction  process 
to  cause  the  antenna  to  be  steered  toward  the  point  displaced  up  or  down 
the  nominal  trajectory  by  the  actually  observed  time  lag  or  time  advance. 
Upon  operator  control  tracking  data  are  averaged  and  stored  in  core  for 
use  in  real  time  differential  correction  and  recorded  on  magnetic  tape 
for  later  use.  Upon  operator  control  the  differential  correction  is  per¬ 
formed  and  a  new  steering  ephemeris  is  generated  for  the  observed 
satellite.  All  residuals,  old  elements,  new  elements,  and  certain  derived 
quantities  are  recorded  on  magnetic  tape  for  later  printout  and  processing. 
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A  minimum  of  monitoring  printout  is  provided.  After  the  pass  the 
details  of  the  differential  correction  may  be  listed  for  review,  the  new 
steering  ephemeris  may  be  listed  for  review,  and  the  data  taken  on  the 
current  pass  may  be  adapted  for  use  as  a  priori  information  on  a  sub¬ 
sequent  pass. 

The  program  modules  constituting  this  orbit  determination  and 
data  processing  system  are  designated  as  follows: 

DAP 

DAP  edits  and  averages  raw  radar  returns  and  records  the  raw 
and/or  averaged  data  on  magnetic  tape  for  later  use. 

PREMOD 

PREMOD  updates  the  available  orbital  elements  to  an  epoch 
immediately  preceding  the  pass  of  interest  and  creates  the 
steering  ephemeris. 

LAP 

LAP  interpolates  the  steering  ephemeris  and  provides  look 
angles  to  the  radar. 

MHESPOD 

MHESPOD  is  a  real  time  differential  correction  program  which 
improves  the  orbital  estimate  of  the  vehicle  and  generates  a  new 
steering  ephemeris. 

NRTPOD 

NRTPOD  is  a  comprehensive  off-line  orbit  determination  and 
differential  correction  program  for  general  use. 

The  foregoing  program  modules  were  written  specifically  for  operation 
at  the  Millstone  Hill  radar  site  and  observe  contraints  inherent  in  that 
operation  and  within  the  SDS  9300  computer.  However,  they  were 
written  in  the  FORTRAN  IV,  Version  12  programing  language  and  can 
be  adapted  for  use  on  compatible  computer  systems. 

Accepted  for  the  Air  Force 

Franklin  C.  Hudson 

Chief,  Lincoln  Laboratory  Office 
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1 .  PREMOD-MHESPOD 


1.  1  GENERAL  DESCRIPTION 
PREMOD 

PREMOD  is  the  Preparation  Module  used  in  conjunction  with  the 
Millstone  Hill  version  of  ESPOD  (MHESPOD),  the  Data  Averaging  Pro¬ 
gram  (DAP),  and  the  Look  Angle  Program  (LAP).  PREMOD  allows  com¬ 
munication  between  the  analyst  and  each  of  these  real  time  modules. 

In  non-real  time  orbit  determination  programs  (e.  g.,  ESPOD)  a 
large  portion  of  the  memory  space  of  the  program  is  devoted  to  the  task 
of  processing  the  input  data.  Another  function  of  the  non-real  time  pro¬ 
gram  is  the  preparation  of  one  or  more  formatted  output  tapes  to  record 
what  might  be  termed  peripheral  output  results,  such  as  the  magnitude  of 
the  observational  residuals,  the  normal  matrix  from  iteration  to  iteration, 
etc.  Each  of  these  functions  increases  not  only  the  memory  space  required 
for  the  operation  of  the  program  but  also  the  running  time  of  the  program. 

In  a  real  time  environment  the  generation  of  the  formatted  output  is  most 
efficiently  done  as  a  post- exe rcise  function,  and  similarly  the  input  data 
processing  can  be  a  pre-exercise  function.  PREMOD  was  written  to  handle 
each  of  these  tasks. 

The  DAP  program  will  accept  console  commands  to  control  its  inter¬ 
nal  processing  and,  additionally,  the  analyst  can  specify  a  number  of  param¬ 
eters  related  to  the  actual  editing  of  the  raw  data  from  the  antennas.  These 
central  parameters  are  accepted  as  card  input  to  PREMOD  and  communi¬ 
cated  to  DAP  through  the  Before  Conditioning  Tape  (BCT).  This  tape  con¬ 
tains  all  the  input  data  for  DAP,  LAP,  and  MHESPOD  and  is  generated 
before  the  tracking  exercise  is  to  begin. 

As  DAP  receives  the  raw  tracking  data,  it  will  on  option  record  this 
data  on  a  high  speed  magnetic  tape.  If  data  is  to  be  averaged  by  DAP,  the 
averaged  data  may  also  be  recorded  on  the  magnetic  tape.  PREMOD  will 
accept  this  DAP  tape  as  input  and  prepare  a  printed  output  of  both  the  raw 
and  averaged  data. 
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PREMOD  prepares  for  LAP  the  look  angle  ephemeris  of  the  space¬ 
craft  relative  to  Millstone  Hill.  The  ephemeris  contains  60  equally  spaced 
entries  of  time,  range,  azimuth,  elevation,  and  either: 


x  *  9R  9A  dE 

a’  ’  dt  ’  dt  ’  at 


or 


b)  R,  R,  A,  E 


The  former  a)  is  used  by  DAP  to  adjust  the  epoch  time  associated 
with  the  SPADATS  6-card  element  set,  and  the  latter  (b)  is  used  in  the 
interpolation  for  steering  data.  The  look  angle  ephemeris  is  placed  by 
PREMOD  on  the  BCT. 


PREMOD  performs  three  functions  for  MHESPOD.  It  is  the  input 
processor,  it  is  an  output  post-processor,  and  it  performs  a  restart  func¬ 
tion  using  the  After  Differential  correction  Tape  (ADT)  generated  by 
MHESPOD.  PREMOD  processes  all  the  input  parameters  to  MHESPOD 
and  prepares  a  data  storage  (COMMON)  record  for  the  BCT.  Included 
among  the  MHESPOD  inputs  are: 

a)  The  best  estimate  of  the  initial  conditions  of  the  orbit 

b)  The  specification  of  the  force  model  to  be  used  in  the 
trajectory  simulation 

c)  Additional  tracking  station  data  and  observations 

d)  Specification  of  the  desired  epoch  to  be  used  in  the 
MHESPOD  fit 

e)  Control  information  regarding  the  output  placed  on  the  ADT. 

PREMOD  will  propagate  the  input  initial  conditions  together  with  the  corre¬ 
sponding  normal  matrix  (if  any)  forward  in  time  to  any  specific  point  or  on 
option  to  the  time  of  the  next  rise  of  this  satellite  relative  to  Millstone  Hill. 
(Rise  is  defined  as  elevation  angle  greater  than  -1.  5  degrees.  ) 


The  ephemeris  of  the  -sun  and  moon  which  is  input  on  cards  to  PREMOD 
relative  to  the  mean  equator  and  equinox  of  1950.  0  is  precessed  to  the  final 
epoch  time  established,  and  any  station  location  and  observation  cards  are 
processed.  The  user  may  specify  up  to  five  unique  tracking  stations  (Mill¬ 
stone,  Haystack,  and  Kwajalein  are  assumed)  and  any  number  of  pre-sorted 
observation  cards.  These  observatories  are  usqjJ.in  MHESPOD  on  each 


iteration  after  the  first  and  are  written  on  the  BCT.  For  the  first  iteration, 


the  program  assumes  an  a  priori  normal  matrix  associated  with  the  obser¬ 
vations  input  to  PREMOD  on  cards.  PREMOD  does  not  itself  contain  any 
orbit  determination  or  differential  correction  capability.  It  does,  however, 
perform  a  complete  trajectory  simulation  using  a  variable  step  Cowell 
second  sum  method  including  an  automatic  error  detection  of  earth  impact. 
The  MHESPOD  trajectory  integration  routine  uses  a  fixed  step  method  (for 
speed  and  simplicity)  and  it  depends  on  PREMOD  for  a  determination  of  the 
proper  step  size  and  a  check  that  the  initial  conditions  specified  for  iteration 
do  not  impact  the  earth. 

The  second  function  of  PREMOD  relative  to  MHESPOD  is  to  perform 
a  post-processing  of  the  high  speed  ADT  tape  generated  by  MHESPOD.  The 
"ADT  print"  option  of  PREMOD  allows  the  analyst  to  recover  the  following 
item  after  the  exercise  has  been  completed: 

a)  The  corrections  to  x,  y,  z,  x,  y,  z  and  their  standard 
deviations  (also  available  as  an  on-line  output  from 
MHESPOD) 

b)  The  current  and  predicted  RMS  of  the  residual  data  (also 
available  as  an  on-line  output  from  MHESPOD) 

c)  The  ATA  normal  matrix  and  its  inverse,  the  covariance 
matrix 

d)  The  observed  minus  computed  residuals  in  the  observa¬ 
tional  data 

e)  The  look  angle  ephemeris  presented  to  Millstone  following 
the  completion  of  the  MHESPOD  fit 

f)  The  number  of  DAP  observations  used  in  each  iteration 
together  with  the  number  of  pre-epoch  observations  (also 
available  as  on-line  output  from  MHESPOD) 

g)  The  SPADATS  mean  elements  corresponding  to  the  new 
x,  y,  z,  x,  y,  z  that  are  computed  at  the  end  of  each 
iteration. 

The  third  use  of  PREMOD  relative  to  MHESPOD  is  for  the  "ADT 
restart"  capability.  For  this  option,  PREMOD  assumes  an  ADT  tape  con¬ 
taining  a  record  of  core  memory  following  the  final  iteration  in  MHESPOD. 
PREMOD  will  upgrade  the  final  elements  to  the  start  of  the  next  pass  (or 
any  arbitrary  time)  and  will  include  the  DAP  observations  on  the  ADT 
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(which  were  used  in  real  time  for  the  previous  pass)  as  a  priori  pre-epoch 
data.  This  capability  allows  the  analyst  to  prepare  BCT's  from  pass  to 
pass  with  a  minimum  of  card  inputs. 

The  functional  logic  flow  of  the  PREMOD  program  follows  on  the 
next  four  pages  (Figure  1  —  1 ) . 

MHESPOD 

MHESPOD  is  a  special  purpose  differential  correction  program  which 
was  developed  for  the  Lincoln  Laboratory  Millstone  Hill  Radar  Site  to  be 
used  in  real  time  tracking  exercises.  The  program  is  a  derivative  of 
ESPOD,  a  large  scale  orbit  determination  program  which  was  developed 
for  the  SPACETRACK/SPADATS  Center,  Ent  Air  Force  Base,  Colorado. 

In  essence,  MHESPOD  is  a  specialized  version  of  the  differential  correction 
portion  of  ESPOD. 

All  necessary  inputs  to  MHESPOD  for  the  execution  of  a  real  time 
differential  correction  are  provided  by  a  magnetic  tape,  the  BCT  tape, 
which  is  generated  by  a  pre-processing  program  known  as  PREMOD.  The 
PREMOD  program  performs  ail  the  necessary  operations  such  as  assign¬ 
ing  weights  to  observations,  converting  input  quantities  to  internal  units, 
etc.  This  feature  enables  the  MHESPOD  program  to  operate  very  fast. 
On-line  output  of  MHESPOD  is  kept  to  a  minimum  to  further  enhance  fast 
operation. 

MHESPOD  performs  a  differential  correction  on  the  six  variables 
which  define  the  state  vector  only;  that  is,  the  solution  is  always  a  6  x  6 
on  the  Cartesian  components  of  position  and  velocity.  The  solution  to  the 
normal  equations  is  unbounded,  permitting  as  large  a  correction  as  pos¬ 
sible.  Also,  there  is  no  convergence  logic  to  prevent  the  execution  of  a 
divergent  step  that  is  if  the  RMS  on  a  given  iteration  is  larger  than  the 
previous  RMS.  As  in  the  case  of  the  restricted  solution  vector,  there  are 
no  bounds  and  convergence  logic  for  the  sake  of  operational  speed.  The 
iteration-by-iteration  output  of  MHESPOD  is  written  on  the  ADT  tape.  The 
PREMOD  program  can  be  used  to  post-process  the  ADT  tape  and  to  obtain 
the  printed  output. 
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Figure  1 -1 . 


Functional  Logic 


Flow  of  the  PREMOD  Program 
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Figure  1- 


Functional  Logic  Flow  of  the  PREMOD  Program 
(Continued) 
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Figure  1- 
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Functional  Logic  Flow  of  the  PREMOD  Program 
(Continued) 
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Figure  1  -1  . 


Functional  Logic  Flow  of  the  PREMOD  Program 
(Continued) 


1-8 


Figure  1  -2  on  the  following  page  is  a  functional  diagram  in  terms 
of  the  mathematical  operations  and  sequences.  It  is  primarily  an  ana¬ 
lytical  representation  of  the  differential  correction  process  with  the 
general  input/output  processes  added.  Computer  programing  repre¬ 
sentations  of  this  figure  in  terms  of  subroutines  are  given  in  Section  5.  1. 

1.2  INPUT 

1.2.1  PREMOD-MHESPOD  Input  Deck  Setup 

The  input  deck  always  consists  of  at  least  two  cards:  (1)  the  JDC 
card  and  (2)  the  Remark  Card.  Other  cards  may  have  to  be  included, 
depending  on  the  options  which  are  called.  The  sequential  order  of  the 
input  deck  is  given  below. 

1.  JDC  Card 

2.  Remark  Card 

if  a  BCT  Tape  is  written, 

3.  Preliminary  Data  Cards 

if  MHESPOD  Processing 
if  Type  3  Elements 

4.  Mean  Elements 

5.  Ephemeris  Cards 

6.  Sensor  Cards,  if  any 

7.  End 

8.  Observation  Cards,  if  any 

9.  End 

1.  2.  2  JDC  Card 

The  JDC  (Job  Description  Card)  is  a  mandatory  input  to  all  runs  and 
is  primarily  used  to  identify  the  run  and  to  call  out  the  various  options 
available  to  the  analyst.  A  column-by-column  description  of  the  JDC 
follows. 


Figure  1-2.  MHESPOD  Functional  Diagram 
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Column 

Description 

1-3 

JDC 

4 

Blank 

5-9 

Vehicle  number 

10 

Blank 

11-12 

Year  -  1900 

13-14 

Month  number 

15-16 

Day 

17-18 

Blank 

19 

4^  0,  print  DAP  tape 

20 

=  1,  ADT  print;  =  2,  ADT  print 
plus  core  ephemeris  print 

21 

41  0,  ADT  restart 

22-24 

Blank 

25 

4^  0,  generate  BCT 

26 

4Z  record  raw  data  by  DAP 

27-29 

Blank 

30 

^=0,  if  MHESPOD  processing 

31 

4 =  0,  if  sensors  on  cards 

32 

4Z  0,  if  observations  on  cards 

33 

=  0,  A,  E,  R 
±  0,  dR/dt9  dA/dt,  dE/dt 

* 

34 

4 -  0,  record  residuals  on  ADT 

35 

4 =  0,  write  core  ephemeris  on  ADT 

1.2.3  Remark  Card 

The  Remark  Card  is  always  the  second  card  in  the  input  deck.  It  has 
no  identifying  characteristics  ("REMARK"  need  not  be  punched  in  the  first 
seven  columns)  except  for  its  unique  position  in  the  input  deck  —  it  follows 
the  JDC  card. 


1-11 


All  72  columns  are  interpreted  and  printed  on  each  run.  Therefore, 
if  the  card  is  omitted,  the  card  which  follows  the  JDC  card,  presumably  a 
preliminary  data  card,  will  be  interpreted  as  a  Remark  Card  and  will  re¬ 
sult  in  subsequent  input  errors. 

1.2.4  Preliminary  Data  Cards 

The  preliminary  data  cards  are  in  the  NAMELIST  format.  A  few 
remarks  concerning  the  use  of  NAMELIST  as  it  applies  to  the  IBM  7094 
on  which  this  program  was  developed  are  included  here.  Most  of  the 
conventions  enumerated  below  apply  equally  well  to  the  SDS  9300. 

1.  The  first  column  of  each  card  is  always  blank 

2.  The  first  data  card  contains:  $INPUT 
The  last  data  card:  $ 

3.  An  equal  sign  follows  each  input  name 

4.  Commas  separate  the  individual  entries  of  an  input  array 

5.  A  comma  is  the  last  character  on  each  card 

6.  Cards  are  free-form  from  columns  2  to  72;  there  may  be 
any  number  of  entries  per  card  and  a  particular  input 
name  may  go  from  card  to  card 

7.  Numbers  may  be  expressed  in  decimal  or  in  exponential 
floating  point. 

The  various  types  of  preliminary  input  cards  are  described  on  the  following 
pages.  In  instances  where  a  strict  adherence  to  a  particular  format  is 
indicated,  such  as  sensor  cards,  a  column-by-column  description  is  given. 

TYPE  =  single  entry  input  specifying  the  coordinate  system 
of  the  initial  conditions 

=  1  Geocentric  Cartesian  state  vector 
=  2  Geocentric  polar  (ADBARV)  state  vector 
=  3  SPADATS/SPACETRACK  mean  elements 

STVEC  =  Six-entry  array  specifying  initial  conditions 

If  TYPE  =  1, 

x,  y,  z  Components  of  Cartesian  position  vector  —  kilometers 

x,  y,  z  Components  of  Cartesian  velocity  vector  — 

kilometers  /  second 
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If  TYPE  =  2, 


a  Right  ascension  of  vehicle — degrees 
6  Declination  of  vehicle  —  degrees 
(3  Flight  path  angle  —  degrees 
A  Azimuth  of  velocity  vector  —  degrees 
r  Geocentric  range  —  kilometers 

v  Magnitude  of  velocity  vector — kilometers/second 
If  TYPE  =  3, 

Mean  elements  in  the  new  SPADATS/SPACETR ACK  format 
are  input.  This  is  a  six-card  element  set,  the  description 
of  which  follows. 


Columns 


1 

2 

3-7 


8 

9 


10 

11 


12-15 

16 

17-27 


28 

29-30 


31 

32 


33 


CARD  NO.  1 


Card  Number  (1) 

Space 

Satellite  Number 
Space 

Classification 

"S"  if  secret 
"C"  if  confidential 
"  U"  if  unclassified 


Space  # 

Source  of  Elements 

e.  g.,  Space  if  SFACETRACK 
9  if  SPASUR 
Element  Set  Number 
Space 

International  Name 

Cols  17-18  Last  two  digits  of  year 
19  Space 

20-23  Greek  letter  name  of  identifying  number 
24  Space 

25-27  Piece  number  of  alphabetic  piece 
description 


Space 

Ephemeris  type  (numeric  code) 

e.g.,  01  Aeronutronic  Simplified  General 

Perturbations  w/Kozai  semi-major  axis 
Differential  Correction  (numeric  code)'1" 

Atmosphere  (numeric  code)* 

e.  g.,  0  No  atmosphere  defined 
1  Lockheed  -  Jacchia 


Space 


Final  values  will  be  assigned  at  a  future  date. 
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CARD  NO.  1  (Continued) 


Columns  34 


35 

36-39 


40 

41-46 


47 

48-51 


52 

53-59 


60 

61-67 


68 

69 


70-75 


76-79 

80 


Accuracy  (numeric  code)' 
e.  g.,  1  ±5.  0  seconds 
Space 

Estimated  Element  Life  from  Epoch  (up  to  99.  9  days) 
within  specified  accuracy 

Cols  36-37  Integral  part 

38  Decimal  point 

39  Decimal  fraction 

Space 

Integral  Revolutions  from  Launch  at  Epoch,  NQ. 
Revolution  number  1  commences  at  first  ascending 
node.  Decimal  point  implied  between  colums  46  and  47. 

Space 

Date  of  Epoch 

Cols  48  Last  digit  of  calendar  year 
49-51  Day  of  year 

Space 

Ballistic  Coefficient,  C£)A/m,  meters  squared  per 
kilogram  (floating  point**) 

Cols  53-57  Decimal  fraction 

58  Sign  of  exponent 

59  Exponent  of  10 

Space 

Reflectivity  Factor,  yA/m,  meters  squared  per 
kilogram  (floating  point) 

Cols  61-65  Decimal  fraction 
66  Sign  of  exponent 
6  7  Exponent  of  10 

Space 

Check  Sum.  Arithmetic  sum,  modulo  10,  of  all  numeric 
characters  in  line  (Columns  1-68).  Add  1  for  minus 
signs,  2  for  plus  signs,  0  for  spaces,  decimal  points 
and  alphabetic  characters. 

Internal  Control  Codes 
e.g.,  ISTOP 
CSTOP 

BLTN  Batching  Indicator 
Element  set  number 
"E" 


Final  values  will  be  assigned  at  a  future  date. 

Floating  point  numbers  will  be  constructed  as  follows.  The  decimal  frac¬ 
tion  will  be  left  justified,  normalized  and  preceded  by  an  implied  decimal 
point.  The  sign  of  the  exponent  will  be  punched  whether  positive  or  nega¬ 
tive.  The  plus  sign  (  +  )  will  be  represented  by  the  symbol  M  in  teletype 
transmission.  Provision  will  be  made  for  exponent  (of  10)  fields  requiring 
more  than  one  digit  by  reducing  the  size  of  the  decimal  fraction  field 
proportionately. 


CARD  NO.  2 


Columns 


1 

2 

3-7 

8 

9-22 


23 

24-31 


32 

33-40 


41 

42-49 


50 

51-58 


59 

60-67 


68 

69 

70-80 


Card  Number  (2) 

Space 

Satellite  Number 
Space 

Epoch,  T,  Modified  Julian  Days 
(Julian  Day  minus  2,  400,  000.  5) 
Cols  9-13  Integral  part 

14  Decimal  point 

15  Decimal  fraction 


Space 

Mean  Anomaly,  M,  degrees 
Cols  24-26  Integral  part 
27  Decimal  point 
28-31  Decimal  fraction 


Space 

Right  Ascension  of  the  Ascending  Node, 
Cols  33-35  Integral  part 
36  Decimal  point 
37-40  Decimal  fraction 


Space 

Argument  of  Perigee,  u>,  degrees 
Cols  42-44  Integral  part 
45  Decimal  point 
46-49  Decimal  fraction 

Space 

Eccentricity,  e  (dimensionless) 
Cols  51  Decimal  point 

52-58  Decimal  fraction 


Space 

Inclination,  i,  degrees 

Cols  60-62  Integral  part 
63  Decimal  point 
64-67  Decimal  fraction 


Space 

Check  Sum  (as  in  Card  No.  1) 
As  in  Card  No.  1 


degrees 


Note:  If  integral  part  of  epoch  time  in  MJD  is  unspecified  (blank),  date  of 
epoch  on  Card  No.  1  will  be  used  as  source  of  this  data. 


CARD  NO.  3 


Columns  1 
2 

3-7 

8 

9-19 


Card  Number  (3) 

Space 

Satellite  Number 
Space 

Mean  Motion  (mean),  n,  revolutions/day 
Cols  9-10  Integral  part 
11  Decimal  point 
12-19  Decimal  fraction 


i-15 


CARD  NO.  3  (Continued) 


Columns  20 

21-31 


32 

33-40 


41 

42-49 


50 

51-58 


59 

60-67 


68 

69 

70-80 


Space  * 

First  Time  Derivative  '  of  Mean  Motion,  n/2, 
revolutions  /  day2 

Cols  21  Sign** 

22  Decimal  point 
23-31  Decimal  fraction 

Space 

First  Time  Derivative  of  Right  Ascension  of  Ascending 
Node,  tl  t  degrees/day 
Cols  33  Sign 

34  Integral  part 

35  Decimal  point 
36-40  Decimal  fraction 


Space 

First  Time  Derivative  of  Argument  of  Perigee,  <L, 


degrees/day 

Cols  42 

Sign 

43 

Integral  part'1*** 

44 

Decimal  point 

45-49 

Decimal  fraction 

Space 

First  Time  Derivative  of  Eccentricity,  e,  /day 
(floating  point) 

Cols  51  Sign 

52-56  Decimal  fraction 

57  Sign  of  exponent 

58  Exponent  of  10 

Space 

First  Time  Derivative  of  Inclination,  i,  degrees/day 
(floating  point) 

Cols  60  Sign 

61-65  Decimal  fraction 

66  Sign  of  exponent 

67  Exponent  of  10 

Space 

Check  Sum  (as  in  Card  No.  1) 

As  in  Card  No.  1 


Although  actual  quantity  may  be  the  product  of  the  derivative  and  a  numeric 
coefficient,  it  will  be  referred  to  simply  as  the  derivative. 

Only  minus  signs  will  be  punched  (except  as  noted  earlier  for  signed  ex¬ 
ponents  of  floating  point  numbers). 

The  sign  position  will  be  pre-empted  when  positive  values  of  gj  require 
two  digits  to  express  the  integral  part. 
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CARD  NO.  4 


Columns  1 
2 

3-7 

8 

9-19 


20 

21-31 


32 

33-40 


41 

42-49 


50 

51-58 


59 

60-67 

68 

69 

70-80 


Card  Number  (4) 

Space 

Satellite  Number 
Space 

Second  Time  Derivative  of  Mean  Motion,  n/6, 
revolutions /days^  (floating  point) 

Cols  9  Sign 

10-17  Decimal  fraction 

18  Sign  of  exponent 

19  Exponent  of  10 

Space 

Third  Time  Derivative  of  Mean  Motion,  ri/24, 
revolutions /days^  (floating  point) 

Cols  21  Sign 

22-29  Decimal  fraction 

30  Sign  of  exponent 

31  Exponent  of  10 

Space 

Second  Time  Derivative  of  Right  Ascension  of  Ascend¬ 
ing  Node,  D/2,  degrees/day^  (floating  point) 

Cols  33  Sign 

34-38  Decimal  fraction 

39  Sign  of  exponent 

40  Exponent  of  10 

Space 

Second  Time  Derivative  of  Argument  of  Perigee,  ci/2, 
degrees/day^  (floating  point) 

Cols  42  Sign 

43-47  Decimal  fraction 

48  Sign  of  exponent 

49  Exponent  of  10 

Space 

Second  Time  Derivative  of  Eccentricity,  e/2,  /day^ 
(floating  point) 

Cols  51  Sign 

52-56  Decimal'  fraction 

57  Sign  of  exponent 

58  Exponent  of  10 

Space 

Unused  (spaces) 

Space 

Check  Sum  (as  in  Card  No.  1) 

As  in  Card  No.  1 


Columns  1 

2 

3-7 

8 


CARD  NO.  5 

Card  Number  (5) 

Space 

Satellite  Number 
Space 


1-17 


CARD  NO.  5  (Continued) 


Columns  9-19 

Semi-major  Axis,  a,  mean  equatorial  earth  radii 
Cols  9-10  Integral  part 

11  Decimal  point 

12-19  Decimal  fraction 

20 

21-30 

Space 

First  Time  Derivative  of  Semi-major  Axis,  a, 
earth  radii/day  (floating  point) 

Cols  21  Sign 

22-28  Decimal  fraction 

31 

32-41 

29  Sign  of  exponent 

30  Exponent  of  10 

Space 

Second  Time  Derivative  of  Semi-major  Axis,  a/2, 
earth  radii/day^  (floating  point) 

Cols  32  Sign 

33-39  Decimal  fraction 

42 

43 

44-75 

76-80 

40  Sign  of  exponent 

41  Exponent  of  10 

Space 

Check  Sum  (as  in  Card  No.  1) 

Unused 

As  in  Card  No.  1 

Columns  1 

2 

3-7 

8 

9-18 

CARD  NO.  6 

Card  Number  (6)* 

Space 

Satellite  Number 

Space 

Anomalistic  Period,  Pa,  'minutes/ revolution 
(floating  point) 

Cols  9-16  Decimal  fraction 

19 

20-27 

17  Sign  of  exponent 

18  Exponent  of  10 

Space 

Anomalistic  Drag  Term,  Ca,  days /revolution^ 
(floating  point) 

Cols  20  Sign 

21-25  Decimal  fraction 

28 

29-35 

26  Sign  of  exponent 

27  Exponent,  of  10 

Space  - 

Height  of  Perigee  Above  the  Reference  Spheroid,  Hp, 
kilometers.  Decimal  point  implied  between  Columns 
35  and  36. 

36 

Space 

This  card  not  intended  for  teletype  transmission. 
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CARD  NO.  6  (Continued) 


Columns  37-42 


43 

44-46 


47 

48-54 


55 

56-65 


66 

67-74 


75 

76-80 


Initial  Revolution  Number  of  (Bulletin)  Prediction 
Elements,  Ni.  Decimal  point  implied  between 
Columns  42  and  43. 

Space 

Number  of  Revolutions  from  Initial  Revolution  to 
Expiration  of  Prediction  Elements,  AN.  Decimal 
point  implied  between  Columns  46  and  47. 

Space 

Expiration  Date  of  Prediction  Elements 
Cols  48  Last  digit  of  year 
49-50  Month 
51-52  Day 
53-54  Hour 

Space 

Nodal  Period,  Pn,  minutes/ revolution  (floating  point) 
Cols  56-63  Decimal  fraction 

64  Sign  of  exponent 

65  Exponent  of  10 

Space 

Nodal  Drag  Term,  Cn,  day s  / revolution^  (floating  point) 
Cols  67  Sign 

68-72  Decimal  fraction 

73  Sign  of  exponent 

74  Exponent  of  10 

Space 

As  in  Card  No.  1 


Note:  If  the  mean  motion  terms  in  Card  No.  3  are  unspecified,  Pa  and  Ca 
will  be  employed  internally  in  their  derivation. 


TIME  =  Six-entry  array  or  less  specifying  epoch  time  of  input  state  vector 
(STVEC).  This  entry  is  omitted  if  TYPE  =  3,  mean  elements. 

Entries 

year  (year  -  1900) 

month  1  =■  January,  2  =  February,  etc. 

day  day  of  month  (may  be  fractional) 

hour  may  be  fractional 

minute  may  be  fractional 

second  may  be  fractional 

DRAG  =  Ballistic  coefficient,  if  single  entry. 

DRAG  Cj)A/m  (meter^/kg) 

or  DRAGCD  Cj),  drag  coefficient,  dimensionless 

and  DRAGA  A,  area  of  spacecraft,  meter^ 

and  DRAGM  M,  mass  of  spacecraft,  kilogram 
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RADPR  =  Reflectivity,  if  single  entry. 


RADPR 
or  RPGAM 
and  RPA 
and  RPM 


yA/m  (meter2/kg) 
y,  dimensionless 
A,  meter^ 
m,  kilogram 


ZONAL  =  The  ZONAL  input  flags  the  coefficients  of  the  zonal  harmonics 
which  are  to  be  included  in  the  geopotential  model.  It  is  a  12 
entry  array,  through  Ji2*  If  only  the  first  five  cells  are 
flagged,  the  remaining  are  assumed  zero.  J2,  J3,  J4are 
nominally  set.  Examples  follow. 

1.  To  call  through  Jg  only: 

ZONAL  =  0.  ,  1.  ,  1.  ,  1.  ,  1  .  ,  1.  , 

2.  To  call  J^,  Jg,  Jg 

ZONAL  (2)  =  0.  ,  0.  ,  0.  ,  0.  ,  0.  ,  1.  ,  1.  ,1.  , 

SECT 


The  SECT  input  flags  the  coefficients  of  the  sectorial  harmonics 
which  are  to  be  included  in  the  geopotential  model.  It  is  a  six-entry 
array,  through  J^.  Unless  pre-set  to  zero,  J^2  Is  always 

included. 


TESS 


The  TESS  input  flags  the  coefficients  of  the  tesseral  harmonics 
which  are  to  be  included  in  the  geopotential  model.  It  is  a  15-entry 
array  as  explained  below.  As  in  the  ZONAL  and  SECT  inputs,  a 
nlM  is  entered  for  inclusion,  a  "O”  to  exclude.  Nominally,  all 
entries  are  pre-set  to  zero. 

TESS  Array 


1 

J21 

9 

J53 

2 

J3 1 

10 

J54 

3 

J32 

11 

J61 

4 

J41 

12 

J62 

5 

J42 

13 

J63 

6 

J43 

14 

J64 

7 

-  J51 

15 

J65 

8 

J52 

NITER 

The  NITER  input  controls  the  number  of  iterations  which  MHESPOD 
will  execute.  Since  there  is  no  convergence  criterion  in  MHESPOD, 
the  program  will  always  go  NITER  iterations.  NITER  is  pre-set  to 
one. 
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TNULL 


The  TNULL  input  specifies  the  time  to  which  the  input  state  vector 
is  to  be  updated.  The  time  is  referenced  to  the  epoch  time,  TIME. 

TNULL  =  DAYS.,  MINUTES.,  SECONDS., 
or  TNULL(2)  =  MINUTES.,  SECONDS., 

or  TNULL(3)  =  SECONDS., 

TB 

The  TB  input  is  the  time  to  which  the  epoch  time  (TIME)  is  updated, 
and  from  which  time  a  rise  search  is  initiated.  The  input  format  is 
the  same  as  TNULL,  given  above. 

TF 


The  TF  input  specifies  the  time  to  which  the  core  ephemeris  is  to 
be  computed.  The  time  TF  is  referenced  to  the  time  of  rise  if  the 
TB  option  was  used,  or  TNULL. 


SMAT 


The  SMAT  input  is  the  a  priori  normal  matrix.  It  is  input  as  an 
upper  triangular  matrix  (6  x  6 )  by  rows.  Hence  there  are  21  entries. 
The  input  units  are  in  terms  of  kilometers  and  seconds. 

Entry  Number 


(1-6)  — 

all 

a12 

a13 

a14 

al5 

a16 

(7-11)  — 

a22 

a23 

a24 

a25 

a26 

(12-15)  — - 

a33 

a34 

a35 

a36 

(16-18) 

a44 

a45 

a46 

(19-20) — 

a55 

a56 

(21)  — 

a66 

COMPRE(XX) 

This  card  input  enables  the  analyst  to  change  a  value  in  PREMOD 
COMMON. 

COMMES(XX) 

This  card  input  enables  the  analyst  to  change  a  value  in  MHESPOD 
COMMON. 


1-21 


The  following  Preliminary  Card  Inputs  are  specifically  related  to  the  DAP 
subroutine. 

RCRIT 

This  is  the  range  editor  critical  deviation.  The  nominal  value  is 
16,  500  meters. 

VCRIT 

This  is  the  range  rate  editor  critical  deviation.  The  nominal  value 
is  9  meters/ second 

TBIAS 

Time  bias  in  seconds. 

RBIAS 

Range  bias  in  meters. 

VBIAS 

Range  rate  bias  in  meters /second. 

EBIAS 

Elevation  bias  in  degrees. 

ABIAS 

Azimuth  bias  in  degrees. 

The  following  inputs  are  related  to  the  LAP  subroutine. 

CSUBA 

Azimuth  servo-lag,  nominally  0.  05  degrees. 

CSUBE 

Elevation  servo-lag,  nominally  0.  05  degrees. 


CEP1 


Integer  which  controls  the  range  of  core  ephemeris  intervals. 
Nominally,  CEP1  =  60. 
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1.2.5  Sensor  Cards 


The  sensor  card  formats  to  be  used  with  the  Lincoln  Laboratory 
programs  PREMOD  and  NRTPOD  are  defined  below. 

The  sensor  identification  is  three  numerical  digits  entered  in  the 
first  three  columns.  Two  additional  identifying  columns  are  provided  to 
permit  biases  to  be  different  from  pass  to  pass.  The  full  identification 
parallels  the  format  on  the  observation  cards. 


The  type  column  indicates  the  type  of  information  on  the  card  accord¬ 
ing  to  the  following  key: 

Type  Number  (column  7) 


Kind  of  Data 

1 

2 

3 

Standard 

on  Card 

Locations 

Biases 

Deviations 

Field  4 

Latitude 

Azimuth  Bias 

*A 

Field  5 

Longitude 

Elevation  Bias 

Field  6 

Height 

Range  Bias 

^R 

Field  7 

• 

R  Bias 

°R 

Field  8 

Field  9 

R  Bias 

Time  Bias 

*R 

The  data  fields  are  each  nine  columns  wide.  Data  may  be  input  in 
any  of  the  conventional  FORTRAN  arrangements,  that  is,  with  either 
implicit  decimal  point  or  punched  decimal  point,  and  with  or  without  a 
right  adjusted  exponent  of  ten  preceded  by  a  punched  plus  or  minus  sign. 

If  the  first  column  of  a  field  is  not  punched  -  (minus),  the  contained  value 
is  assumed  positive.  The  implicit  decimal  point  is  located  between  the 
first  and  second  column  of  each  field.  On  the  card  implicit  decimal  points 
appear  between  the  following  pairs  of  columns:  9-10,  19-20,  29-30,  39-40, 
49-50,  and  59-60. 


1-23 


Field 


Columns 


Description 


1 

1-3 

Station  ID 

2 

4-5 

Pass  number:  applicable  to  type  2  (biases) 
cards  only 

6 

Space  = 

blank 

3 

7 

Type 

Blank  or  0:  Error  on  input,  disregarded 

1:  Interpret  0,  X,  h 

•  • 

2:  Interpret  A,  ,  E  ,  R  ,  R  ,  R  , 
b  b  b  b  b 

3:  Interpreter^  cr^  <rR)  cr^,  cr^ 

8 

Space  = 

blank 

4 

9-17 

Type  1: 

Geodetic  latitude  0  degrees 
(positive  north) 

Type  2: 

Bias  in  Azimuth  degrees 

Type  3: 

cr^  degrees 

18 

Space  = 

blank 

5 

19-^7 

Type  1: 

Longitude  X  degrees  (positive  east 
of  Greenwich) 

Type  2: 

Bias  in  Elevation  E^  degrees 

Type  3: 

o*E  degrees 

28 

Space  = 

blank 

6 

29-37 

Type  1: 

Height  h  meters 
(positive  above  ellipsoid) 

Type  2: 

Bias  in  Range  km 

Type  3: 

'r1™ 

38 

Space  = 

blank 
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Field 

7 


8 


9 


10 


Columns  Description 


39-47 

Type  1: 

Type  2: 

Bias  in  first  time  derivative  of 
range  km /sec 

Type  3: 

cr^  km/sec 

48 

Space  = 

blank 

49-57 

Type  1: 

Type  2: 

Bias  in  sgcond  time  derivative 
of  range  m/sec^ 

Type  3: 

•  •  /  Z 

(T^  m/sec 

58 

Space  = 

blank 

59-67 

Type  1: 

Type  2: 

Bias  in  assigned  time  of  observation 
tb  sec 

Type  3: 

68-78 

Not  used,  reserved  for  station  name 

11  79-80  Not  used,  to  be  punched  with  some  unambiguous 

mnemonic  to  identify  this  card  conveniently 
as  a  sensor  card. 


1.2.6  Observation  Cards 

The  observation  card  format  of  the  Lincoln  Laboratory  orbit  deter¬ 
mination  programs  PREMOD,  MHESPOD,  and  NRTPOD  is  defined  below. 

The  accuracies  implied  by  the  lengths  of  the  fields  are  greater  than 
sensors  can  currently  measure.  The  time  format  is  more  accurate  than 
the  FORTRAN  coding  can  accommodate.  These  provisions  for  extra 
accuracy  have  been  made  to  allow  for  system  improvements. 

The  time  zone  column  has  been  abolished.  This  seldom  used  option 
can  be  replaced,  for  those  cases  where  observations  cannot  be  preprocessed 
to  correct  from  local  time  to  Greenwich  time,  by  a  supplementary  code  in 
the  type  column  (26).  This  sets  a  flag  to  initiate  a  special  reduction  of 
time.  This  option  has  not  been  implemented  into  any  of  the  Lincoln  Labora¬ 
tory  orbit  determination  programs  and  is  not  contemplated  at  this  time. 
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Estimated  standard  deviations  of  a  particular  observation  may  be 
entered  on  the  observation  card.  The  field  for  a  standard  deviation  con¬ 
sists  of  three  columns,  and  follows  the  field  of  the  particular  observable 

to  which  the  standard  deviation  applies.  The  first  two  columns  are  inter- 

-5 

preted  as  an  integer  x  10  .  The  third  column  is  interpreted  as  a  positive 

exponent  of  10.  The  full  range  of  values  which  may  be  represented  (in  the 
units  of  the  observable)  are: 

10-5  <  0-  <  99  X  104 
Sample  values  are  given  below. 

0.55  =  553 
1  =  015 


Fractions  of  angles  cannot  be  inserted  in  units  of  minutes  and  seconds 
of  arc.  All  fractions  of  angles  must  be  expressed  in  decimal  fractions  of 
a  degree. 

A  decimal  point  may  be  punched  arbitrarily  into  any  one  position 
within  a  field  where  observables  (A,  E,  R,  R,  R,  a,  6)  appear.  If  the  deci¬ 
mal  point  is  not  punched  in  any  particular  field,  either  by  design  or  acci¬ 
dentally,  the  program  assumes  the  following  implicit  locations  for  decimal 
points: 

Field  5  (A,  6)  Implicit  decimal  point  between  columns 

29  and  30 


Field  7  (E,  6) 
Field  9  (R,  R) 
Field  11  (R) 


Implicit  decimal  point  between  columns 
41  and  42 

Implicit  decimal  point  between  columns 
62  and  63 

Implicit  decimal  point  between  columns 
70  and  71 
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'ield 

Columns 

Description 

1 

1-3 

Station  ID 

2 

4-5 

Pass  number 

6 

Space  =  blank 

3 

7-8 

Year  (=  year  -  1900) 

9-10 

Month  (January  =1) 

11-12 

Day  of  calendar  month 

13-14 

Greenwich  hour  of  day 

15-16 

Minutes 

17-18 

Integral  seconds 

19 

Decimal  point 

20-25 

Fractional  seconds 

4 

26 

Type 

Blank  or  0:  Interpret  A  E  R  R 

1:  Interpret  R 

2:  Interpret  a  6 

3-9:  To  be  determined 

5 

27-34 

Type  0:  Azimuth;  A,  degrees 

(positive  east  of  north) 

Type  1: 

- 

Type  2:  Right  ascension;  a,  degrees 
(positive  east  of  Greenwich) 

6 

35-37 

Type  0:  <r  ,  degrees 

Type  1: 

Type  2:  <ra,  degrees 

38 

Space  =  blank 

7 

39-46 

Type  0:  Elevation;  E,  degrees 

Type  1: 

Type  2:  Declination;  6,  degrees 
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Field 

8 


9 


10 


11 


12 


13 


Columns 

47-49 


50 

51-62 


63-65 


66 

67-75 


76-78 


79-80 


Description 
Type  0:  cr^,,  degrees 
Type  1: 

Type  2:  cr^,  degrees 

Space  =  blank 

Type  0:  Range;  R,  km 

•  • 

Type  1:  Range  acceleration;  R,  m/sec 
Type  2: 

Type  0:  cr^,  km 

^  .2 

Type  1:  a”,  m/sec 

Type  2: 

Space  =  blank 


Type  0:  Range  rate;  R,  km/sec 
Type  1: 

Type  2: 

Type  0:  a*,  km/sec 
Type  1: 

Type  2: 

Not  used,  to  be  punched  with  some  unam¬ 
biguous  mnemonic  to  identify  this  card 
as  an  observation  card 
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1.2.7  Ephemeris  Cards 

PREMOD-MHESPOD  requires  that  16  ephemeris  cards,  in  a  specific 
format  describing  the  position  and  position  differences  of  the  moon  and 
sun  for  4  days,  are  included  in  the  input  deck.  See  Section  1. 2.1  for  the 
deck  setup  description.  One  day  of  lunar-solar  ephemeris  data  is  rep¬ 
resented  on  the  4-card  format  description  which  follows. 


JD1 

mod 

2430000 

X 

moon 

62x 

moon 

64x 

moon 

y 

7  moon 

Ml 

Col.  1-14 

Col.  15-28 

Col.  29-42 

Col.  43-56 

Col.  57-70 

Col.  73-80 

62y 

;moon 

6% 

7  moon 

z 

moon 

62, 

moon 

64z 

moon 

M2 

Col.  1-14 

Col.  15-28 

Col.  29-42 

Col.  43-56 

Col.  57-70 

Col.  73-80 

JD1 

mod 

2430000 

X 

sun 

62x 

sun 

64x 

sun 

y 

sun 

SI 

Col.  1-14 

Col.  15-28 

Col.  29-42 

Col. 43-56 

Col.  57-70 

Col.  73-80 

62y 

7  sun 

64y 

7  sun 

z 

sun 

62z 

sun 

64z 

sun 

S2 

Card  1 


Card  2 


Card  3 


Card  4 


where 


JDj  =  Julian  date  Mod  2430000 


Card  1  i 


moon 


JD, 


c  2 

6  x 


moon 


JD, 


64x 


moon 


JD, 


x  coordinate  of  the  moon  referenced 
to  the  earth  at  time,  JDj 

2nd  central  difference  of  the  x 
coordinate  at  time,  JDj 

4th  central  difference  of  the  x 
coordinate  at  time,  JDj 


moon 


JD, 


y  coordinate  of  the  moon  referenced 
to  the  earth  at  time,  JDj 


1  -29 


6 


2 

ym°°njD 


1 


6 


4 

ym°onjD 


1 


2nd  central  difference  of  y 
coordinate  at  time,  JD^ 

4th  central  difference  of  y 
coordinate  at  time,  JDj 


Card  2 


< 


Zm°onjD 


1 


62z 


moon 


JD, 


=  z  coordinate  of  the  moon  referenced 
to  the  earth  at  time,  JD^ 

=  Znd  central  difference  of  the  z 

...  Tr.  moon 

coordinate  at  time,  JD^ 


6 


Zm°onjD 


1 


=  4th  central  difference  of  the  z 
coordinate  at  time,  JD^ 


Cards  3  and  4  contain  information  similar  to  cards  1  and  Z  with  solar 
coordinates  being  described  for  the  same  Julian  date,  JD^- 


Card  columns  73-80  on  all  the  above  pictured  cards  are  used  as 
identifying  columns.  BCD  information,  Ml,  MZ,  SI,  SZ  respectively, 
denotes  the  type  of  card,  being  either  moon  or  sun  cards. 


1 .  3  PREMOD-  MHESPOD  OUTPUT 


PREMOD  - MHESPOD  produces  output  in  the  form  of  on-line  (real 
time)  printout,  magnetic  tapes,  and  off-line  printout.  This  section  explains 
the  format,  the  parameters  produced,  and  is  supplemented  by  samples  to 
clarify  the  description. 

There  are  four  distinct  types  of  printed  output  which  are  associated 
with  the  PREMOD- MHESPOD  programs.  They  are: 

1)  PREMOD  output 

Z)  MHESPOD  on-line 

3)  ADT.Print 

4)  DAP  Tape  Print 
1.3.1  PREMOD  Output 

A  PREMOD  run  always  precedes  a  MHESPOD  run  and  is  executed  in 
non- real  time.  The  printed  output  consists  of  (1)  the  preliminary  input 
conditions,  (Z)  the  final  initial  conditions,  (3)  the  nominal  core  ephemeris, 
(4)  tracking  station  data,  and  (5)  the  observations  and  standard  deviations 
input  on  cards . 
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Figure  1-5.  Sample  Input  Initial  Conditions  Header 
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Figure  1-4.  Sample  Updated  Initial  Conditions  Header 
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Figure  1-7.  Sample  Observations  on  Cards  Print  (PREMOD) 
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Figure  1  -8.  Sample  On-Line  Output  (MHESPOD) 


The  first  page  of  output  consists  of  the  card  images  of  the  prelimi¬ 
nary  data  input  deck.  The  following  page  consists  of  the  input  preliminary 
conditions  at  TNULL  (the  time  at  which  the  rise  search  is  initiated)  in 
Cartesian  and  polar  coordinates.  See  Figure  1-3.  The  next  page  gives 
the  initial  conditions  and  associated  time  which  have  been  updated  (to  vehi¬ 
cle  rise)  in  the  same  coordinate  systems.  See  Figure  1-4. 

This  is  followed  by  the  nominal  core  ephemeris  which  is  a  predicted 
radar  steering  history  of  the  vehicle  for  the  Millstone  Hill  sensor.  The 
ephemeris  contains  60  equally  spaced  entries  of  time,  range,  azimuth, 
elevation,  range  rate,  and  either: 

9R  9A  9E 

9t  1  9t  Ik “ 

o  o  o 

or 

•  •  •  i 

R,  A,  E 

The  time  is  in  minutes  and  referenced  from  midnight  of  day  of  epoch,  and 
the  output  units  are  kilometers,  seconds,  and  degrees.  The  nominal  core 
ephemeris  is  shown  in  Figure  1-5.  Immediately  following  the  core 
ephemeris  is  a  tabulation  of  tracking  station  data.  This  consists  of  the 
station  ID,  geodetic  latitude,  longitude,  height,  and  the  observational 
biases  to  be  applied  to  the  data,  if  any.  This  is  illustrated  in  Figure  1-6. 
The  final  item  in  the  PREMOD  output  is  a  listing  of  the  observations  which 
were  entered  on  cards.  The  standard  deviations  associated  with  each 
observation;  whether  entered  on  sensor  cards  or  on  the  observation  cards, 
are  also  printed.  The  time  is  referenced  to  epoch  time.  See  Figure  1-7. 

1.3.2  On-Line  Output  (MHESPOD) 

The  real  time  output  of  MHESPOD  is  an  abbreviated  version  of  the 
off-line  output,  allowing  fast  running  time  from  iteration  to  iteration. 

The  format  of  the  on-line  print  is  explained  below  and  illustrated  in 
Figure  1  -8. 


(1) 

(2) 
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Iteration  number 


1) 

2) 


New  State 


Solution  Variables 

Correction 

Vector 

Units 

X 

AX 

X 

km 

Y 

AY 

Y 

km 

Z 

AZ 

Z 

km 

X 

AX 

X 

km/  sec 

Y 

AY 

Y 

km/sec 

Z 

AZ 

Z 

km/ sec 

3)  Current  RMS — Root  mean  square  of  weighted 
residuals  -  dimens ionle s  s 


4)  Predicted  RMS 

5)  Total  Observables  -  An  observable  is  defined  as  a 

particular  measurement,  such 
as  azimuth,  at  a  particular  time. 

6)  DAP  Entries  -  A  DAP  entry  is  defined  as  a  set  of 

observables  with  a  common  time 
tag;  e.  g.  ,  R,  A,  E  at  time  t. 


1.3.3  ADT  Print 

PREMOD  can  be  used  as  an  output  post-processor.  In  this  capacity, 
PREMOD  is  used  to  print  the  ADT  tape  which  was  generated  during  a 
MHESPOD  run.  The  output  consists  of:  (1)  the  residuals  by  iteration, 

(2)  the  iteration  summary,  (3)  the  DAP  observations  on  the  ADT  tape, 
if  any,  and  (4)  the  ADT  core  ephemeris. 


The  residuals  print  is  a  chronological  listing  of  the  computed  residu¬ 
als.  The  time  is  referenced  to  the  input  epoch  time  as  the  observations  in 
the  PREMOD  output.  See  Figure  1-9.  As  an  analyst's  output,  the  geo¬ 
centric  declination,  the  earth  longitude,  and  a  time  residual  are  given  on 
the  residuals  page.  The  definition  of  the  time  residual  is:  DT  =  AR/R. 


The  iteration  summary  immediately  follows  the  residuals  print  and 
shows  the  results  of  applying  the  computed  corrections.  The  first  line 
identifies  the  iteration  number.  The  following  describes  the  tabulated 
solution  vector  date  arranged  in  columns  in  the  order  shown  below: 


1) 

2) 


VARIABLE  (X,  Y,  Z,  X,  Y,  Z) 


The  corrections  applied  to  each  variable 
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3) 

OLD 

Numerical  values  for  the  variables  from  the 
previous  iteration 

4) 

NEW 

Numerical  values  for  the  variables  for  this 
iteration  (NEW  =  OLD  +  DELTA) 

5) 

SIGMA 

The  uncertainty  in  each  variable  computed 
from  the  covariance  matrix 

In  addition  to  the  solution  vector  data  described  above,  the  new 
variables  are  also  output  in  terms  of  the  mean  elements.  The  definition 
of  mean  elements  follows: 

A  Semi -major  axis  (earth-radii) 

E  Eccentricity 

I  Inclination  (degrees) 

NODE  Right  ascension  of  ascending  node  (degrees) 

OM  Argument  of  perigee  (degrees) 

M  Mean  anomaly  (degrees) 

In  addition,  the  first  order  (J^)  rates  of  change  of  the  right  ascen¬ 
sion  of  the  ascending  node  (NDOT)  and  the  argument  of  perigee  (ODOT) 
are  given  in  units  of  degrees/day. 

The  total  number  of  observations  and  the  number  of  DAP  entries  is 
printed  on  this  page.  A  DAP  entry  is  defined  as  one  radar  point,  hence, 
it  may  consist  of  up  to  four  observables. 

The  current  RMS  (root  mean  square  of  weighted  residuals)  and  the 

predicted  RMS  appear  on  the  iteration  summary.  Finally,  the  normal 

T  T 

matrix  (A  A)  and  the  variance  —  covariance  matrix  (A  A  inverse)  are 

printed  on  the  iteration  summary  page.  See  Figure  1-10.  Following  the 
last  iteration  summary  (the  iteration  maximum  is  specified  by  card  in¬ 
put,  NITER), a  listing  of  the  DAP  observations  on  the  ADT  tape,  if  any, 
is  given.  The  time  is  referenced  to  midnight  of  day  and  epoch;  the  stand¬ 
ard  deviations  associated  with  the  observations  is  also  given.  See 
Figure  1-11. 
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Finally,  the  ADT  core  ephemeris  is  printed.  This  is  a  60  equally 
spaced  steering  history  of  the  Millstone  Hill  radar,  based  on  the  new  ele¬ 
ments  of  the  last  iteration.  As  in  the  nominal  core  ephemeris  of  PREMOD, 
the  core  ephemeris  consists  of  range,  azimuth,  elevation,  range  rate, 
and  either: 

9R  9A  9E 

9t  '  9t  9t 

o  o  o 

or 

•  a  .  a 

R,  A,  E 

The  ADT  core  ephemeris  is  illustrated  in  Figure  1-12. 

1.3.4  DAP  Tape  Print 

1 . 4  MAGNETIC  TAPES 

The  input  data  to  MHESPOD  is  obtained  from  the  BCT  (Before  Con¬ 
ditioning  Tape),  which  is  generated  by  PREMOD.  MHESPOD  output  is 
written  on  the  ADT  (After  Differential  Tape)  for  purposes  of  non-real  time 
proces  sing . 

Both  tapes  are  in  the  binary  mode  with  the  exception  of  the  first 
record,  which  is  in  the  BCD  mode.  This  feature  allows  the  printing  of 
the  record  only,  which  is  for  identification  purposes. 

1.4.1  BCT  Tape  Description 

1)  ID  Record  (BCD) 

1.1  Word  1  BCTbbb* 

1.2  Word  2  Satellite  Number 

1.3  Word  3-14  Header  information  (from  input  card) 

2)  DAP  Record 

Number  of  words  in  DAPRE 
N,  DAPRE  ( 1  -  N) 


5 


Where 


b  =  BCD  blanks . 
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Figure  1-12.  Sample  Updated  Core  Ephemeris,  ADT  Print 


3)  Core  Ephemeris 
3.  1  N,  CE(1  -  N) 


CE(4)  i  0 

CE(4)  =  0 

t 

t 

•  • 

R 

• 

R 

R 

R 

A 

A 

E 

E 

R 

or/ at 

• 

A 

aA/at 

• 

E 

aE/at 

4)  COMMON  (MESCOM) 

N,  COMMON  (1  -  N) 

5)  Pre-epoch  observations 

5.1  Five  observations  per  record, 

5.2  Format:  ID,  T,  R,  A,  E,  R, 

5.3  Last  record:  1,  0. 

6)  Physical  E  -  £>  -  F  (end  of  file) 

1.4.2  APT  Tape  Description 

1)  ID  Record  (BCD) 

1.1  Word  1  ADTbbb* 

1.2  Word  2  Satellite  number 

1.3  Words  3-14  Header  information  (from  input  card) 

2)  Residuals  Record 

2.  1  Data  -  10  words 
ID  BCD 

T  Minutes  frommidnight,  day  of  epoch 

AR  Earth- radii 

AA  Radians 

AE  Radians 

AR  Earth- radii/minute 

$ 

Where  b  =  BCD  blanks. 


51  words  in  record 


aR’  °A’  aE’  °R' 


1-45 


<p  Radians 

X  Radians 

h  Feet 

AR/R  Minutes 

2.2  Five  sets  per  record;  51  words 

2.3  Termination  with  two-word  record:  1,  0. 

3)  Curve  fit  record 

3.1  One  record,  66  words,  N,  DATA 


N 

Iteration  number  (1) 

AX  (6) 

X  (6) 

Current  RMS  (1) 

Predicted  RMS  (1) 

T  T  T 
A 1  A,  AAb,  b  b  (28) 


(ATA)_1  (21) 
NDAPOB  (1) 
POBCNT  (1) 


Integer 

Earth- radii,  /minutes 
Earth- radii,  /minutes 


Upper  triangular  by  row 
augmented  column 

Upper  triangular  by  row 

Integer-number  of  DAP  entries 

Number  of  observables 


3.2  Residuals  record,  curve  fit  record  sequencing 

Residuals  record 

1,  0.0 

Curve  fit  record 

Residuals  record 

1,  0.0 

Curve  fit  record 

Curve  fit  record  (last) 

1,  1.0 

4)  COMMON  Block 

N,  COMMON,  (1  -  N) 


5)  DAP  observations  used  in  curve  fit 


5.  1  Five  observations  per  record 
51  words  per  record 
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5.2  Format 

ID 

T 

R 

A 

E 

• 

R 

<r_ 


Derived  from 
DAPBUF  format 


T 

R 

A 

E 
• 

R 

LW 


5.3  Termination  with  two-word  record: 


1,  0.0 


6)  Core  Ephemeris  (if  requested  on  JDC) 


N,  (CECI), 

1=1,  N) 

CE  (1-4)  - 

Control  words 

Fo  rmat 

CE(4)  i  0 

CE(4)  =  0 

t 

t 

•  • 

R 

• 

R 

R 

R 

A 

A 

E 

E 

• 

R 

3R/8t 

• 

A 

8A/8t 

E 

8E/8t 

7)  Physical  E  -  O  -  F  (end  of  file) 
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i .  5  PROGRAM  STORAGE  MAP 


1.5.1  PREMOD  COMMON 

Storage  Allocation  and  Identification — /PRECOM/PCOM  (300) 


Variable  Equivalence  Dimension  Description 

ZONAL  1  12  Flags  to  identify  the  zonal  harmonics 

J  1»  J2#  *  *  •  >  J  12  to  be  included  in  the 
force  model.  If  0,  do  not  include;  if 
^0,  include. 

SECT  13  6  Flags  to  identify  the  sectorial  harmonics 

Jl  1,  J22»  *  *  •  »  J66  to  be  included  in  the 
force  model.  If  0,  do  not  include,  if 
^=0,  include. 


TESS  19  15  Code  words  to  identify  the  tesserol 

harmonics  J2L  J 3  1 »  *  #  J6l»  J32» 

J42»  *  *  •  *  J&5  to  be  included  in  the  force 
model.  The  code  words  are  formed  as 
follows.  If  Jnm  is  desired  in  the  model, 

Code  word  =  nm 

The  TESS  list  is  assumed  terminated 
when  the  first  0  entry  is  encountered. 


CJ 

34 

12 

The  values  of  the  zonal  harmonics  Jj, 

J2>  •*.  Ji2- 

CJNM 

46 

6,  6 

A  two-dimensional  array  containing  the 

values  of  the  sectorial  harmonics  up  to 
degree  and  order  6  along  the  main 
diagonal,  the  tesseral  harmonics  below 
the  main  diagonal,  and  the  tesseral 
harmonic  phase  angles  (in  degrees) 
above  the  main  diagonal. 


CLAMNN 

82 

6 

The  values  of  the  sectorial  harmonic 
phase  angles  through  J^,  in  degrees. 

POS 

88 

24 

The  Cartesian  position  of  the  moon  and 
sun  measured  in  ECI  coordinates, 

referenced  to  the  mean  equator  and 
equinox  of  1950  for  each  of  the  4  days 
of  ephemeris  card  data  read  with  the 
input.  The  storage  is  as  follows: 


left  superscript  =  day  no.  ; 
right  subscript  =  body 


The  coordinates  are  stored  in  units  of 
earth  radii. 
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Storage  Allocation  and  Identification — /PRECOM/PCOM  (300)  (Continued) 


Variable  Equivalence  Dimension  Description 

PDEL2  112  24  The  second  central  differences  of  the 

coordinates  defined  in  PPOS.  The 
storage  is  as  follows: 

left  superscript  =  day  no.  ; 

right  superscript  =  second  difference 

left  subscript  =  component  ; 
subscript  =  body 


PDED4  136  24  The  fourth  central  difference  of  the 

coordinates  defind  in  PPOS.  The 
storage  is  as  described  under  PDEL2. 

T 

SMAT  160  21  The  a  priori  A  A  normal  matrix,  stored 

upper  triangular  by  rows,  in  x,  y,  z, 
x,  y,  z  coordinates,  in  units  of  seconds 
and  seconds" * . 


181-210 

SMELM  211  21 


XICODN  232  6 


Unused  storage 


The  Spadats 

6-card  mean  elements 

stored  in  the 

following  order: 

SMELM  (1) 

a  (earth  radii) 

SMELM  (2) 

e 

(3) 

i  (radians) 

(4) 

ft  (radians) 

(5) 

gl>  (radians) 

(6) 

M  (radians) 

(7) 

a  (earth  radii/day) 

(8) 

e  (day  1) 

(9) 

\  (radians/ day) 

(10) 

D  (radians/day) 

(ID 

o>  (radians/day) 

(12) 

N  (radians/day) 

(13) 

a’/2  (earth  radii/day^) 
e‘/2  (day  ) 

(14) 

(15) 

O. 

SMELM(  16) 

H/2  (radians/day^) 

(17) 

o)/2  ( radians /day2) 

(18) 

N/2  (radians/day2) 

(19) 

N/6  (radians /day 3) 

(20) 

N/24  (radians/day4) 

(2D 

Not  used 

The  state  vector  as  input  on  the  STVEC 
NAMELIST  entry,  in  kilometers  , 
degrees,  and  seconds. 
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Storage  Allocation  and  Identification — /PRECOM/PCOM  (300)  (Continued) 
Variable  Equivalence  Dimension  Description 


TJOSAV 

238 

1 

The  Julian  Date  at  0  hours  of  the  epoch 
day  associated  with  the  ADT  epoch.  This 
cell  allows  DAPOB  to  compute  the  proper 
time  lag  for  ADT  observations  being 
used  on  ensuring  MESPOD  runs. 

IPADT 

239 

1 

Column  20  of  the  JDC.  If  =  1,  print 

ADT;  if  =  2  include  print  of  core  ephemeris 
if  =  0  do  not  print  ADT. 

IRADT 

240 

1 

Column  21  of  the  JDC.  If  =  0,  no  ADT 
restart;  if  =£0  use  ADT  for  restart. 

IGBCT 

241 

1 

Column  25  of  the  JDC.  If  =£0,  generate 
BCT. 

ISEN 

242 

1 

Column  31  of  the  JDC.  If  =£  0,  process 
station  location  cards. 

IOBS 

243 

1 

Column  32  of  the  JDC.  If  ^=0,  process 
observation  cards. 

ICEFLG 

244 

1 

Column  33  of  the  JDC.  If  =  0,  core 
ephemeris  to  contain  R,  A,  E,  3R/ 3t, 

3A/3t,  dt/dt,  R 

if  =£0,  the  core  ephemeris  will  contain: 

R ,  A,  E,  R,  A,  E,  R 

IRESD 

245 

1 

Column  34  of  the  JDC.  If  =£0,  record 
residuals  or  ADT  during  MESPOD 
curve  fit. 

DRAGCD 

246 

1 

If  non-zero,  the  value  of  Cj,  the  drag 
coefficient.  The  user  will  input  either 

Cd,  A,  m  cr  C^  A,  m  if  drag  is  to  be 
specified. 

DRAGA 

247 

1 

If  non-zero,  the  value  of  the  effective 
area  of  the  spacecraft  to  be  used  in  the 
simulation  of  atmospheric  drag,  (meters 
squared) . 

DRAGM 

248 

1 

If  non- zero,  the  value  of  the  mass  of 
the  spacecraft  to  be  used  in  the  Simula- 

tion  of  atmospheric  drag  (hilograms). 
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Storage  Allocation  and  Identification — /PRECOM/PCOM  (300)  (Continued) 


Variable 

Equivalence 

Dimension 

Description 

RPGAM 

249 

1 

If  non-zero,  the  value  of  y  to  be  used 
in  the  radiation  pressure  calculations. 

The  user  will  either  specify  y,  A  and  m 
individually  or  yA/m  directly. 

RPA 

250 

1 

If  non- zero,  the  value  of  the  effective 
area  of  the  spacecraft  for  use  in  cal¬ 
culating  the  effects  of  solar  radiation 
pressure  (meters  squared). 

RPM 

251 

1 

If  non- zero,  the  value  of  the  mass  of 
the  spacecraft  to  be  used  in  calculating 
the  effects  of  solar  radiation  pressure 
(kilograms) . 

DRAG 

252 

1 

The  value  of  C^A/m  from  the  NAMELIST 
input  name  DRAG  in  units  of  meters 
squared  per  kilogram. 

RADPR 

253 

1 

The  value  of  yA/m  from  the  NAMELIST 
input  name  RADPR  in  units  of  meters 
squared  per  kilogram. 

PTB 

254 

3 

The  specification  of  the  preliminary 
epoch  time  TB,  the  point  at  which  the 
search  for  rise  is  to  be  initiated.  This 
time  is  given  in  days,  hours,  and  minutes 
from  the  input  epoch  (TIME  entry  through 
namelist  or  the  time  entries  on  the 
SPADATS  6- card  element  sat).  Either 
PTB(  1-3)  or  PTNULL(  1-3)  may  be 
specified,  not  both. 

PTNU  LI¬ 

257 

3 

The  specification  of  the  epoch  to  be 
used  by  MESPOD  in  days,  hours,  and 
minutes  from  the  input  epoch. 

DA  YL.NT 

260 

1 

Integral  modified  Julian  Date  from 
SPADATS  6- card  element  set. 

DAYFRC 

261 

1 

Fractional  Julian  Date  from  SPADATS 
6-card  element  set. 

IPRCE 

262 

1 

Column  35  of  the  JDC.  If  =  0,  do  not 

place  core  ephemeris  on  ADT  following 
final  iteration  of  MESPOD.  If  =^t0,  do 
place  core  ephemeris  on  ADT.  This 
column  must  be  set  when  generating  the 
BCT  if  it  is  desired  to  later  print  the  core 
ephemeris  from  the  ADT. 
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Storage  Allocation  and  Identification  —  /PRECOM/PCOM  (300)(Continued) 


Variable 

IDAPT 

KDAP 


Equivalence  Dimension  Description 

263  1  Column  1 9  of  the  JDC.  If  ^=0,  print 

the  DAP  row-averaged  data  tape. 

264  1  Logical  tape  number  of  DAP  raw- 

averaged  data. 

265-300  Not  used. 


1-52 


1.5.2  MHESPOD  Common  Storage  Map/MESCOM/MCOM  (900) 


Name 

MCOM(  ) 

Dimension 

CWE 

1 

1 

CELLIP 

2 

1 

CMU 

3. 

1 

CGMR 

4 

2 

CFTER 

6 

1 

CKMER 

7 

1 

CKMER 

8 

1 

CMTER 

9 

1 

CDEG 

10 

1 

CFTNM 

11 

1 

CDAYMN 

12 

12 

CPI 

24 

1 

C2PI 

25 

1 

KOUT 

26 

1 

KIN 

27 

1 

KBCT 

28 

1 

KADT 

29 

1 

CHMAX 

30 

1 

CHMIN 

31 

1 

CYMIN 

32 

1 

CER 

33 

1 

CBE 

34 

1 

CRASHE 

35 

1 

Definition  of  Variable  or  Array 

Earth's  rotational  rate  (radians  per 
minute) 

Ellipticity  of  the  earth 

3  2 

GM  of  the  earth  (earth  radii  /min  ) 

GM  ratios  (moon,  sun)  to  earth 

Conversion  from  earth  radii  to  feet 

Conversion  from  feet  to  kilometers 

Conversion  from  earth  radii  to 
kilometers 

Conversion  from  earth  radii  to  meters 

Conversion  from  radians  to  degrees 

Conversion  from  nautical  miles  to  feet 

Cells  containing  number  of  days  in 
each  month 

7T 

2tt 

Output  tape  number  (print) 

Input  tape  number 

Before  conditioning  tape  number  (BCT) 

After  differential  correction  tape 
number  (ADT) 

Maximum  step  size  (minutes) 

Minimum  step  size  (minutes) 

Parameter  for  variable  step  integration 
Parameter  for  variable  step  integration 
b 

e 

Impact  test  parameter 
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Name 

MCOM(  ) 

Dimension 

CRASHM 

36 

i 

NRRR 

37 

i 

TNULL 

38 

i 

TB 

39 

i 

TF 

40 

i 

TNODE 

41 

i 

TEPOCH 

50 

i 

TJDATE 

51 

i 

DYEAR 

52 

i 

DMNTH 

53 

i 

DDAY 

54 

i 

DHOUR 

‘55 

i 

DMIN 

56 

i 

DSEC 

57 

i 

DTYPE 

58 

i 

•  DBASE 

59 

i 

TALFAG 

60 

i 

CDAD2M 

61 

i 

TSTEP 

62 

i 

TNOMX 

63 

6 

TICRT 

69 

6 

NITER 

75 

1 

NOOBS 

76 

1 

N1 

77 

1 

N2 

78 

1 

Definition  of  Variable  or  Array 

Altitude  to  start  testing  for  impact 

Non- zero  for  fixed  step  Runge-Kutta 

Pre-specified  epoch  (minutes) 

Preliminary  epoch  (minutes) 

Maximum  length  of  core  ephemeris 

Final  time  of  core  ephemeris 

Epoch  time,  minutes  from  midnight 

Julian  date  of  midnight,  epoch  day 

Epoch  year 

Epoch  month 

Epoch  day 

Epoch  hour 

Epoch  minutes 

Epoch  seconds 

Initial  conditions  type 

Number  days  from  1950  to  day  of 
epoch 

a  for  midnight  day  of  epoch  (radians) 

S 

C^A/2m  (feet^/slug) 

Nominal  step  size  (minutes) 

Initial  Cartesian  coordinates 
(x,  y,  z,  x,  y,  z) 

Nominal  Cartesian  coordinates 

Maximum  number  of  iterations 

Number  of  pre-epoch  observations 

Counters  for  geopotential  routine 

Counter  for  geopotential  routine 
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Name 

MCOM(  ) 

Dimension 

Definition  of  Variable  or  Array 

N3 

79 

1 

Counter  for  geopotential  routine 

FJ 

80 

12 

Working  storage  for  generalized 
geopotential  subroutine 

C 

92 

6,  6 

Working  storage  for  generalized 
geopotential  subroutine 

NPR 

164 

1 

Total  number  of  parameters  to 
solve  for 

NDPR 

165 

1 

Total  number  of  Category  1  variables 
to  solve  for 

NAROW 

166 

1 

Starting  location  where  one  row  of 
the  augmented  matrix  (A,  B)  is  stored 

NBDNS 

167 

1 

Starting  location  of  the  bounds  vector 

NPAR 

168 

1 

Identifies  current  values  of  parameters 
in  solution  vector 

NDPAR1 

169 

1 

Identifies  correction  vector 

NSC ALE 

170 

1 

Identifies  solution  vector  scale  vector 

NATA 

171 

1 

T  T 

Identifies  A  A,  A  B  stored  upper 
triangular  by  rows 

NR 

172 

1 

T  -  1 

Identifies  (A  A) 

NSTAT 

173 

1 

Starting  location  of  master  sensor 
table  in  variable  storage 

SKIP 

174 

1 

If  0,  set  FLVE  =  0,  if  non-zero,  set 
FLVE  accordingly 

SGAMAM 

175 

1 

S(yA/m)  radiation  pressure  constant 

XJD 

176 

4 

Array  of  Julian  dates  (mod  2430000.  ) 
in  core  storage  for  ephemeris  of 
moon  and  sun 

POS 

180 

4, 

3, 

2 

Positions  of  moon  and  sun  correspond- 
int  to  XJD 

DEL2 

204 

4, 

3, 

2 

2nd  central  differences  of  position  of 
the  moon  and  sun  corresponding  to 

XJD 

DEL4 

228 

4, 

3, 

2 

4th  central  differences  of  position  of 
the  moon  and  sun  corresponding  to 

XJD 
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Definition  of  Variable  or  Array 


Name  MCOM(  )  Dimension 


SIGMH 

252 

4 

IRESFG 

256 

1 

CEP1 

257 

1 

IRCE 

258 

1 

NDAPOB 

269 

1 

FLVE 

270 

1 

TEMP 

271 

50 

TRAJX 

321 

57 

TLIST 

378 

192 

TG 

570 

1 

TMINUS 

571 

1 

TUBSEF 

572 

1 

TRHOA 

573 

1 

TALT 

574 

1 

TDRAG 

575 

3 

TV 

578 

3 

TVA 

581 

1 

TR 

582 

1 

TR2 

583 

1 

TR3 

584 

1 

cr's  for  Millstone  —  applied  to  DAP 
observations 

=  0  Do  not  record  residuals  on  ADT 
£  0  Record  residuals  on  ADT 

used  in  generating  core  ephemeris 

=  0  Do  not  record  core  ephemeris 
on  ADT 

t  0  Record  core  ephemeris  on  ADT 

Number  of  DAP  observations  used  in 
curve  fit 

=  0  Integrate  variational  equations 
£  0  Skip  VAREQ  on  corrector  step 

Temporary  working  storage 

See  P.  4-352,  ESPOD  Mathematical 
and  Subroutine  Description 

Numerical  integration  working  storage 

Time  to  integrate  to  (minutes) 

Flag  to  indicate  integration  time 
before  epoch 

EOF  flag  for  reading  observations 

3 

Density  of  air,  slugs/ft 

Altitude  of  vehicle  in  feet 

Three  components  of  acceleration 
due  to  drag 

Three  components  of  earth-fixed 
velocity 

Magnitude  of  earth-fixed  velocity 

R,  magnitude  of  position  vector  of 
vehicle 
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Name 

MCOM(  ) 

Dimension 

Definition  of  Variable  or  Array 

TR5 

585 

i 

R5 

TR7 

586 

i 

R7 

TPOT 

587 

3 

Total  acceleration  due  to  earth's 
potential  field 

COLA 

590 

1 

Cosine  0,  where  0  =  latitude 

SILA 

591 

1 

Sine  0 

SIPH 

592 

1 

Sin  X,  where  X  =  longitude 

COPH 

593 

1 

Cos  X 

SNALF 

594 

1 

Sin  a,  a  =  right  ascension 

CSALF 

595 

1 

Cosine  a 

XN 

596 

6 

Position  of  moon  and  sun  in  com¬ 
ponent  form 

TRPRES 

602 

3 

Three  components  of  acceleration 
due  to  radiation  pressure 

TBPERT 

605 

3 

Three  components  of  acceleration 
due  to  bodies 

T CRASH 

608 

1 

Flag  non-zero  when  impact  occurs 

PMAT 

609 

9 

Matrix  used  in  evaluating  v/a riational 
equations 

VMAT 

618 

9 

Matrix  used  in  evaluating  variational 
equations 

PUBS 

627 

6 

Sensor  ID,  time,  R,  A,  E,  R  table 

PSTAT 

633 

10 

Working  storage  for  sensor 
information 

PCSALF 

643 

1 

Cos  a  ,  where  a  -  +  X  1-  u>  t 

g  g  e 

PSNALF 

644 

1 

Sin  a 

g 

PWI 

645 

3 

Vector  (wj,  w^,  w^) 

PWDTI 

648 

3 

•  •  • 

Vector  (Wj,  w^.  w^) 

PUI 

651 

3 

Vector  (u^,  u^.  u^) 
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Name 


MCOM(  )  Dimension  Definition  of  Variable  or  Array 


PVI 

654 

3 

Vector  (Vj,  V z>  V J 

PV 

657 

1 

(v?  +  vAm 

PRSUB1 

658 

1 

> 

II 

pH 

Pj 

PSNE 

659 

1 

Sin  E 

c 

PCSE 

660 

1 

Cosine  E 

c 

PSNA 

661 

1 

Sin  A 

c 

PCSA 

662 

1 

Cos  A 

c 

PCMR 

663 

1 

R  =  computed  slant  range 

PWPP 

664 

18 

Partial  derivatives  (see  PRELIM 
subroutine  write  up) 

PWDTPP 

682 

18 

Partial  derivatives  (see  PRELIM 
subroutine  write  up) 

PRESD 

700 

4 

Residuals  array  (measured-computed) 

IPFRST 

704 

1 

0  to  indicate  first  time  in  RADR 

PLSTSN 

705 

1 

Number  of  last  sensor  processed  by 
RADR 

PUDTI 

706 

3 

Vector  (u^,  u^ ,  u^) 

PSIG 

709 

4 

Sigma  list  for  current  station  and 
associated  time  and  observations 

POBCNT 

713 

1 

Total  number  of  accepted  observations 

TSUS 

714 

1 

Current  total  RMS 

TSUSP 

715 

1 

Predicted  RMS  for  next  iteration 

IFTEX 

716 

1 

=  0  iterations  not  completed 
^  0  max  iterations 

NITCT 

717 

1 

Iteration  counter 

VSTR 

718 

155 

Floating  point  variable  storage 
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2.  NRTPOD 


2.  1  GENERAL  PROGRAM  CHARACTERISTICS 

NRTPOD  is  a  general  purpose  orbit  determination  program  pre¬ 
pared  for  use  by  the  Massachusetts  Institute  of  Technology  Lincoln  Lab¬ 
oratory  at  the  Millstone  Hill  Radar  Site.  The  program  is  a  derivative  of 
the  program  ’'ESPOO"  which  was  originally  developed  for  the 
SPACETRACK/SPADATS  Center,  Ent  Air  Force  Base,  Colorado.  NRTPOD 
is  an  improved  version  of  the  parent  program  and  is  specifically  limited  in 
size  such  that  it  will  operate  in  the  real  time  computer  system  at  the 
Millstone  Hill  Radar  Site. 

The  primary  purpose  of  the  program  is  to  determine  the  elements  of 
a  satellite  orbit  and  a  covariance  matrix  of  uncertainty  in  the  determina¬ 
tion,  given  some  initial  estimate  of  the  orbit.  From  the  best  elements  ob¬ 
tained,  the  program  predicts  the  future  position  and  velocity  of  the  satel¬ 
lite.  The  program  includes  a  sophisticated  collection  of  mathematical, 
statistical,  and  operational  techniques  to  make  it  operate  rapidly,  and 
produce  high  precision  in  the  results. 

2.1.1  General  Orbit  Model 

NRTPOD  utilizes  a  Cowell  method  of  special  perturbations  for  prop¬ 
agating  the  satellite  position  and  velocity.  The  process  is  initiated  with  a 
Runge-Kutta  starter  which  sets  up  the  finite  differences  from  which  the 
Cowell  integration  proceeds.  At  each  given  time,  the  influences  of  ail  the 
forces  acting  on  the  satellite  are  calculated  and  summed.  These  forces 
are  dependent  entirely  upon  the  position  and  velocity  of  the  satellite  at  a 
given  time;  that  is,  they  are  special  for  the  moment.  The  integration 
step  size  is  automatically  controlled  to  keep  seventh-order  differences  in 
acceleration  within  a  certain  numerical  range.  This  technique  guarantees 
a  certain  accuracy  but  permits  the  step  size  to  be  as  large  as  possible. 

The  NRTPOD  Program  provides  a  recursive  computation  technique 
for  calculating  the  perturbative  acceleration  of  a  satellite  resulting  from 
the  fact  that  the  earth  is  not  a  homogeneous  sphere.  Nominally,  only  the 
first  three  zonal  harmonics  and  the  second  sectorial  harmonic  are  used; 
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however,  the  first  nine  zonal  harmonics  and  all  sectorial  and  tesseral 
harmonics  through  order  and  degree  four  may  be  used. 

Atmospheric  drag  is  derived  as  a  force  tangent  to  the  direction  of 
travel  of  the  satellite,  jointly  proportional  to  a  drag  parameter  and  the 
density  of  the  atmosphere.  The  drag  parameter  assumes  the  familiar 
form  of  ballistic  drag;  i.  e.  ,  Cj^A/m.  The  atmospheric  density  profile  is 
calculated  as  specified  by  the  Lockheed- Jacchia  Model. 

The  perturbing  effects  of  the  sun  and  moon  on  an  earth  satellite  are 
simulated  in  the  mathematical  model  of  NRTPOD.  If  the  perturbation  ef¬ 
fect  is  desired,  the  ephemerides  of  the  sun  and  moon  are  entered  on  cards. 

An  improved  version  of  the  radiation  pressure  model  has  been  in¬ 
corporated  into  NRTPOD  (and  PREMOD- MHESPOD) .  The  new  radiation 
pressure  model  accounts  for  reflected  radiation  from  the  earth,  is  inac¬ 
tive  when  the  vehicle  is  in  earth  shadow,  and  approximates  the  eclipse 
zone  with  atmospheric  refraction  considerations. 

2.1.2  Differential  Correction 

Since  no  set  of  observations  obtained  from  a  tracking  system  can  be 
fit  to  a  trajectory  perfectly,  only  an  estimate  of  the  actual  trajectory  can 
be  made.  Like  most  curve  fitting  programs,  NRTPOD  uses  a  weighted 
least  squares  method  of  forming  the  best  estimate  from  the  observations 
available.  In  the  simplest  case,  only  the  position  and  velocity  components 
are  to  be  computed;  all  other  parameters  and  constants  are  assumed  to 
be  known  exactly.  In  addition  to  solving  for  six  components  of  position 
and  velocity,  NRTPOD  may  include  other  non-orbital  parameters,  such  as 
drag  parameters,  observation  biases,  and  station  location  coordinates. 

The  final  elements  are  achieved  by  iterating  on  the  differential  correction 
procedure.  Convergence  is  obtained  when  the  sum  of  the  squares  of  the 
weighted  residuals  changes  by  less  than  0.  1  percent  due  to  the  last  com¬ 
puted  correction. 

Since  the  differential  correction  process  depends  upon  the  appropri¬ 
ateness  of  a  linear  approximation  to  a  nonlinear  function,  linear  theory 
may  fail  if  finite  correction*  become  too  large.  In  order  to  keep  the  cor¬ 
rections  within  a  linear  region,  bounds  are  used  on  the  individual  solution 
components.  This  is  a  desirable  technique  which  is  automated  in 
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NRTPOD,  increasing  its  ability  to  converge  to  correct  elements.  The 
bounds  are  adjusted  automatically  to  compensate  either  for  diverging  cor¬ 
rections  or  for  too  slow  convergence.  Whenever  a  '’correction11  results 
in  a  divergence,  i.  e.  ,  the  new  orbital  elements  yield  a  larger  sum  of 
squares  of  weighted  residuals  than  the  previous  elements,  the  bounds  are 
halved  and  a  new,  more  constrained  solution  is  attempted.  If  this  fails  to 
achieve  a  convergent  iteration,  the  bounds  are  halved  again  until  one- 
eighth  bounds  have  been  tried.  At  this  point,  the  program  exits.  On  the 
other  hand,  if  a  correction  yields  a  new  sum  of  squares  of  weighted  resi¬ 
duals  which  actually  is  less  than  the  previous  sum,  the  bounds  are  doubled, 
permitting  larger  corrections.  However,  when  the  actual  sum  of  squares 
is  not  within  10  percent  of  a  previously  predicted  sum,  the  bounds  remain 
unchanged.  When  the  actual  sum  and  the  predicted  sum  are  not  in  close 
agreement,  nonlinearity  is  indicated. 

2.1.3  Research  Capability 

NRTPOD  is  primarily  an  operational  program.  The  program  struc¬ 
ture  permits  the  analyst  to  change  any  constants  defining  the  mathematical 
models,  to  change  the  weights  applied  to  residuals,  to  change  other  sensor 
parameters,  to  weight  a  priori  estimates,  to  force  the  integration  to  par¬ 
ticular  step  sizes,  to  change  any  physical  constants,  etc.  With  this  con¬ 
venience,  NRTPOD  can  be  used  as  a  research  tool.  The  effect  ot  varying 
the  potential  model,  the  solution  of  observation  biases,  and  inclusion  of 
all  data  points  from  intensive  tracking,  can  be  studied  for  general  or  par¬ 
ticular  influence  on  many  types  of  satellites. 

2.1.4  General  Computational  Logic  Flow 

A  general  logic  flow  of  the  NRTPOD  Program  is  outlined  on  the  next 
page.  The  differential  correction  process  is  outlined  in  sequential  steps 
as  the  computational  procedure  is  not  a  straightforward  as  other  options 
such  as  trajectory  propagation.  Detailed  logic  flows  of  the  particular  sub¬ 
routines  which  perform  the  indicated  mathematical  and  logic  operations 
can  be  found  in  the  subroutine  section  of  this  document. 
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NRTPOD 


PROGRAM  CONTROL- 
OBSERVATIONS- 


I NITIAL  CONDITIO  NS  - 
A  PRIORI  DATA - 


INTERROGATES  JDC  CARD 
SORTS  DATA 
CONVERTS  UNITS 

ASSIGNS  WEIGHTS  TO  OBSERVATIONS 
ALLOCATES  COMPUTER  STORAGE 
READS  AND  CONVERTS  MISC  INPUT 


Dl  FFERENTIAL  CORRECTION 


PRELIMINARY  CALCULATIONS 
SET  INITIAL  CONDITIONS 
FOR  INTEGRATING  DO 
PRELIMINARY  OBSERVATION 
PARTIAL  DERIVATIVE 
COMPUTATIONS 


FIND  FIRST 
OBSERVATION 
TIME 


ADD  TIME 
BIAS  FOR 
THIS  STATION, 
IF  ANY 


INTEGRATE 
TRAJECTORY 
TO  BIASED  TIME 


ADD  PARTIAL 
DERIVATIVE  INTO 

ATA  ,atb 


FIND  PARTIAL  DERIVATIVES 
OF  OBSERVATIONS 
AT  THIS  TIME 
WITH  RESPECT  TO 
THE  PARAMETERS 


CORRECT 
PARAMETERS 
BY  ADDING  X 


TRAJECTORY 


CALCULATES  POSITION  AND 
VELOCITY  AND  OSCULATING 
ELEMENTS  AT  EVERY 
AT  MINUTES  FOR  T  MINUTES 
FROM  EPOCH  UPDATES 
NORMAL  AND  COVARIANCE 
MATRICES  TO  PRESCRIBED  TIMES 


Figure  2.1.  General  Logic  Flow  of  the  NRTPOD  Program 
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2.  2  NRTPOD  INPUT 


The  NRTPOD  input  and  deck  set-up  is  similar  to  the  formats  and 
conventions  described  in  the  PREMOD- MHESPOD  input  section  (1.  2). 

Many  of  the  input  variables  common  to  both  programs  have  identical  call 
names  and  card  formats. 

2.  2.  1  Deck  Set-Up 

The  input  deck  must  always  begin  with  the  JDC  card.  In  the  simplest 
set-up,  an  input  deck  would  consist  of  a  JDC  card  and  preliminary  data  in¬ 
puts.  With  this  configuration,  trajectory  and  matrix  update  runs  can  be 
made.  From  the  sample  input  deck  on  the  following  page,  the  deck  se¬ 
quence  and  those  parts  of  the  deck  that  are  mandatory  under  various  con¬ 
ditions  can  be  seen.  If  the  ephemeris  cards  are  left  out  of  the  deck,  the 
program  will  function  normally,  except  that  the  perturbations  due  to  the 
sun  and  moon  will  be  ignored.  Also,  it  should  be  noted  that  ephemeris 
cards  are  required  if  radiation  pressure  is  called,  since  the  position  of 
the  sun  is  obtained  from  them.  The  order  of  the  sensor  cards  within  the 
sensor  card  sub-deck  is  immaterial.  Depending  on  the  particular  run, 
there  maybe  up  to  three  sensor  cards  (see  Section  1,2.5)  per  sensor.  If 
there  are  fewer  than  345  observation  cards,  they  may  be  input  in  random 
sequence.  If  there  are  more  than  345  observations,  the  cards  must  be  in 
chronological  sequence,  the  first  card  being  nearest  epoch.  (See  Figure  2-2.  ) 

2.  2.  2  JDC  -  Job  Description  Card 

The  JDC  card  is  the  control  card  for  the  flow  of  information  through 
NRTPOD.  This  card  is  always  the  first  card  of  an  input  data  deck.  It 
selects  certain  program  options  and  defines  the  program  sections  to  be 
used.  A  short  arbitrary  remark  is  permitted  on  the  card. 

Column  Content  Description 


1-3 

JDC 

Identifies  JDC  card 

4-7 

Vehicle  number  (optional) 

8-17 

Vehicle  name  (optional) 

18-29 

User  ?s  header 

30 

Not  used  at 

present 

2.5 


END  CARD  \ 
DENOTING  END 
OF  ODSER- 

ATIONSl 


END 


OBSERVATION 
CARD  DECK  (iF 
CURVE  FIT 
™^VDE  SI  RED) 


CARD  DENOTING 
END  OF  SENSORS 


SENSOR  CARD 
DECK  (IF  CURVE 
FIT  DESIRED) 


EPHEMERIS 
CARD  DECK 
(IF  DESIRED) 


$  INPUT  \ 
NAMELIST  INPUT 
DECK 

\ 

JDC  CARD 

Figure  2-2.  NRTPOD  Sample  Input  Deck 
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Column 

Content 

Description 

31 

0  or  blank 

Sensor  and  observation  data  not  be  be 

processed 

i 

Sensor  and  observation  data  to  be 

processed 

32 

0  or  blank 

Do  not  print  sensor  data 

i 

Print  sensor  data 

33 

0  or  blank 

Do  not  print  observations 

i 

Print  observations 

34-40 

Not  used  at  present 

41 

0  or  blank 

Curve  fit  not  desired 

i 

Curve  fit  desired 

42 

0  or  blank 

A  priori  S  matrix  not  input  this  run 

1 

A  priori  S  matrix  is  input  on  this  run 

43-50 

Not  used 

51 

0  or  blank 

Trajectory  print  not  desired  this  run 

1 

Trajectory  print  is  desired  this  run 

52 

0  or  blank 

A  priori  UPMAT  (covariance)  matrix  not 

input 

1 

A  priori  UPMAT  matrix  is  input  this  run 

53-54 

Not  used 

55 

0  or  blank 

Covariance  matrix  update  not  desired 

1 

Covariance  matrix  update  desired  this  run 

2.  2.  3  Preliminary  Data  Input 

The 

preliminary  data  cards  are  in  the  NAMELIST  format,  they 

are  for  PREMOD-MHESPOD. 

Many  of  the  inputs  are  identical  to 

PREMOD- 

MHESPOD;  however 

,  all  input  variables  names  which  are  ac- 

ceptable  to  NRTPOD  are  enumerated  in  this  section  as  not  all  inputs  of 
PREMOD-MHESPOD  are  used  in  NRTPOD. 
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The  description  of  the  input  variables  is  given  on  the  following  pages. 
The  dimension  of  the  input  array  is  indicative  of  the  maximum  number  of 
entries  for  a  given  variable. 


NAMELIST  INPUT 
Variable  Name 
COM 
DRAG 

or 

DRAGCD 

and 

DRAGA 

and 

DRAGM 

CNSIG 

TIME 

DELTT 


BNDS 


NITER 


STVEC 


Dimension 

60 

1 


1 

6 

17 


50 


Description 

Variables  in  BLK1  blank  COMMON 

Ballistic  coefficient  (Cj^A/m) 
(meters  /milog ram) 

fC  coefficient  of  drag 


<D 

.O  0) 

.  U 

£  * 

0Q  .5 

H.SQ 


area  in  ballistic  coefficient 
term  (meters^) 


m  mass  in  ballistic  coefficient 


term  (kilograms) 


N  for  N(a)  deletion  (nominally  1000) 

Epoch  time  in  YR,  MO,  DAY,  HR, 
MIN,  SEC. 

Sets  of  At,  t  trajectory  print  (maxi¬ 
mum  8  sets).  Trajectory  points 
printed  for  At  increments  over  in¬ 
terval  t  minutes  from  epoch. 

Bounds  specified  to  control  conver¬ 
gence  for  each  CAT1  or  CAT2  varia¬ 
ble  selected  for  solution. 

No.  of  iterations  desired  in  curve  fit 
(nominally  1) 

Array  identifying  the  initial  position 
and  velocity  for  the  following 
coordinates: 

1.  (TYPE  no.  1)  ECI  polar  spheri¬ 
cal  o;  6,  8 ,  A,  R,  V  (deg.,  km., 
km/  sec) 
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Variable  Name 


CAT1 


CAT2 


Dimension 


8 


225 


Description 

2.  (TYPE  no.  2)  ECI  Cartesian 
x,  y,  z,  x,  y,  z  (km,  km/sec) 

3.  (TYPE  no.  3)  ECI  polar  spherical 
X,  6,  0,  A,  R,  V  (deg,  km, 

km/ sec) 


Category  1  variables: 

CAT1(1)  Right  ascension,  OC 
Declination,  6 
Flight  path  angle,  0 
Azimuth,  A 
Radius,  R 
Velocity,  V 


CAT1(2) 
CAT  1(3) 
CAT  1(4) 
CAT1(5) 
CAT1(6) 
CAT  1(  7) 


Drag  parameter, 
CpA/m 


CAT1(8)  Not  used. 

The  CAT1  array  indicates  to  the  pro¬ 
gram  the  Category  1  variables  to  be 
solved  for.  This  array  must  contain 
either  "ones"  or  "zeros.  "  A  "1" 
indicates  that  the  corresponding  var¬ 
iable  is  to  be  solved  for.  A  "0"  in¬ 
dicates  that  the  corresponding  varia¬ 
ble  is  not  to  be  solved  for.  This 
convention  holds  true  for  seven 
Category  1  variables. 

For  example,  a  NAMELIST  card 
punched  as  follows 

CAT  1  =  1.  1.  0.  1.  1.  0.  0. 


indicates  that  on  this  run,  the  varia¬ 
bles  a,  6,  A,  and  R  are  to  be  solved 
and  that  0,  V,  CDA/m  will  be  held 
constant. 


Category  2  variables: 

CAT 2(1)  Station  ID  9Hollerith) 
CAT 2(2)  Range  bias,  R^,  flag 
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Variable  Name 


Dimension 


Description 


COM3 

TYPE 


100 

1 


CAT  2(3)  Azimuth  bias,  A^,  flag 
CAT 2(4)  Elevation  bias,  E^,  flag 
CAT2(5)  Range  rate  bias,  Rb,  flag 
CAT2(6)  Time  bias,  t^,  flag 
CAT2(7)  Latitude  bias,  0^,  flag 
CAT2(8)  Longitude  bias,  flag 

CAT  2(9)  Height  bias,  h^,  flag 
CAT  2(10) 


CAT2(  1 8) 
CAT2(  19) 


Next  station  biases, 
if  any 


CAT  2(27) 


Next  station  biases, 
if  any 


The  CAT2  array  indicates  to  the  pro¬ 
gram,  the  Category  2  variables 
(biases)  to  be  solved  for  selected  sen¬ 
sors.  Any  combination  of  CAT  2  var¬ 
iables  may  be  solved  for  the  same 
sensor.  The  convention  for  specify¬ 
ing  CAT2  variables  to  be  solved  is 
similar  to  that  used  in  CAT1  cards. 
For  example,  NAMELIST  cards 
punched  as  follows: 

CAT 2  =  0,  1,  1,  1,  0,  0,  0,  0,  1 
$ . REDEF  CAT2  =  H 
CAT2(1)  =  CP 

indicate  that  R^,  A^,  E^,  and  h^  of 
sensor  CP  are  to  be  solved  for. 


Variables  in  BLK3  blank  COMMON 

Indicates  type  of  initial  conditions 
(position  and  velocity)  input  by  the 
STVEC  array. 
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Variable  Name 


Dimension 


Description 


BISES 


UPMAT 


TYPE  =  1  Indicates  ECI  polar 

spherical  inputs  a9  6,  ft 
A,  R,  V 

TYPE  =  2  Indicates  ECI  Cartesian 
inputs  X,  Y,  Z,  X,  Y,  Z 

TYPE  =  3  Indicates  ECI  polar 

spherical  A,  6f  ft  A,  R, 

V 

50  Bias  estimates: 

Identifies  the  start  of  an  array  which 
contains  the  initial  bias  estimates  of 
the  Category  2  variables  in  the  dif¬ 
ferential  correction  vector.  They  are 
specified  in  the  same  order  as  that  for 
bounds.  If  any  Category  2  initial  es¬ 
timate  is  specified,  all  must  be 
specified.  If  a  particular  initial  es¬ 
timate  is  not  known,  zero  (0. 0)  may 
be  entered. 

28  A  priori  covariance  matrix:  (Col. 

5  2  on  JDC  card) 

Restricted  to  being  a  6  x  6  or  7x7 
depending  on  whether  drag  is  or  is 
not  included,  this  covariance  matrix 
resulting  from  a  previous  differential 
correction  can  be  made  available  for 
propagating  uncertainties.  The 
UPMAT  matrix  is  symmetric  and 
only  the  lower  triangular  portion  is 
input. 

As  an  example,  a  6  x  6  matrix  is  il¬ 
lustrated  showing  the  order  of  as¬ 
signing  matrix  elements  to  the 
UPMAT  array. 
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Variable  Name 


Dimension 


Description 


SMAT 


210 


U11 

U21  u22 

U31  u32  u 

33 

U41  u42  u 

43 

u44 

U51  u52  u 

53 

u54 

u55 

u6l  u62  u 

63 

u64 

u65  u66 

UPMAT(l) 

= 

U11 

UPMAT(  2) 

= 

U21  " 

UPMAT(3) 

= 

u22 

UPMAT(4) 

= 

U31 

Input  is  lower 

UPMAT(5) 

= 

u32 

►  triangular  by 

rows. 


UPMAT  (21)  =  u66 


rp 

A  priori  normal  matrix  (AXA) 
NRTP0D  can  accept  an  a  priori  A^A 
matrix  (input  flag  on  column  42  of 
JDC  card)  which  brings  into  the  dif¬ 
ferential  correction  summarized  data 
from  observations  already  processed 
on  previous  runs  of  NRTPOD.  The 
a  priori  A  A-matrix  will  be  valid 
only  if  the  initial  conditions  for  the 
new  differential  correction  are  the 
same  set  which  generated  the  a 
priori  A  A-matrix.  Note  that  the 
new  differential  correction  will  cause 
the  initial  conditions  to  vary  from 
iteration  to  iteration.  Hence,  the 
a  priori  A^A-matrix  is  valid  for 
only  one  iteration. 

The  a  priori  A^A-matrix  (S-matrix) 
is  input  as  an  upper  triangular  by 
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Variable  Name 


Dimension 


Description 

rows  matrix.  The  total  number  of 
variables  input  is  N(N+l)/2,  the 
maximum  order  being  20. 

The  following  example  indicates  the 
placement  of  elements  for  a  5  x  5 
S- matrix 


S11 

S12 

Sl  3 

bl4 

S1  5 

S22 

S23 

S24 

S25 

S3  3 

3  34 

3  3  3 

S44 

S4  3 

s. 

Since 

the  A 

^A  is 

symmetric 

the  input  of  SMAT  is  upper 
triangular  by  rows, 

SMAT(l)  =  Sn 
SMAT(  2)  =  St  , 

SMAT(i)  Sj  . 

SMAT(4)  S,  , 

SMAT(5) 

SMAT(b)  S,. 

SMAT(  7)  S,. 

SMAT(  8)  S, 

SMAT(9)  S  , ^ 

SMAT(10)  -  S.. 

SMAT(ll)  St 
SMAT(  1  2) 

SMAT(IJ) 

SMAT(  1 4) 

SMAT(  15)  S5S 

DELET  100  Input  provided  to  edit  residuals  and 

to  reject  those  which  are  not  to  be 
included  in  the  differential  cor  rectum 
DELET  marks  the  beginning  ot  a 
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Variable  Name 


Dimension 


Desc  ription 


table  of  identification  numbers  of 

residuals  to  be  deleted.  The  identi¬ 
fication  numbers  are  taken  from  the 

residuals  listing  of  a  previous 
NRTPOD  computer  run.  DELET  en¬ 
tries  are  specified  in  pairs  (a,  b) 
which  mark  respectively  the  first 

and  last  residual  of  a  list  of  residuals 

to  be  deleted.  The  program  deletes 

all  residuals  whose  identification 

number  lies  between  a  and  b  inclu¬ 
sive.  If  a  =  b,  a  single  residual  is 
deleted.  Up  to  50  sets  of  (a,  b)  pairs 

may  be  input  through  the  DELET 

array. 

CKRMS 

1  A  provision  for  editing  residuals  by 

input.  Residuals  may  be  rejected 

from  the  differential  correction  by 
comparison  with  some  multiple 

(CKRMS)  of  the  root  mean  square  of 

the  weighted  residuals  from  the  pre¬ 
vious  iteration. 

DTMAX 

1  A  provision  for  editing  residuals  by 

input.  Residuals  may  be  rejected 

from  the  differential  correction  if  the 

corresponding  observations  are  re¬ 
moved  more  than  some  arbitrary 
time  in  days  (DTMAX)  from  epoch. 
Nominally,  20  days. 

NDAYS 

1  Indicates  to  the  INPUT  link  of 

NRTPOD  the  number  of  days  of 
ephemeris  input  for  a  particular  case. 

These  ephemeris  data  include  the 
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Variable  Name 


Dimension 


BFLAGS 


RADPR 


2 


1 


Description 

position  of  the  sun  and  the  moon  along 
with  2nd  and  4th  central  differences 
of  these  positions.  If  NDAYS  is  not 
specified,  the  program  assumes 
NDAYS  =  0  and  does  not  expect  any 
ephemeris  cards  to  be  input.  If 
NDAYS  4  0  is  specified,  the  input 
number  of  days  of  ephemeris  data 
must  correspond  exactly. 

Note:  If  NDAYS  =  0,  perturbations 

due  to  radiation  pressure  and 
due  to  the  accelerations  of 
the  sun  and  moon  are  not 
included  in  the  trajectory 
simulation. 

Flags  indicating  to  NRTPOD  whether 
perturbations  due  to  the  accelerations 
of  the  sun  and  moon  are  to  be  in¬ 
cluded  in  the  trajectory  simulation. 
Nominally,  BFLAGS(1)  (moon  flag), 
and  BFLAGS{2)  (sun  flag)  are  set 
non-zero,  indicating  both  bodies  are 
to  be  considered.  A  zero  input  to 
BFLAGS  excludes  the  corresponding 
body  (moon  or  sun)  from  the 
simulation. 

Radiation  pressure  parameter, 

(meter  s  ^/kilogram) . 

A  non-zero  entry  for  RADPR  calls 
the  radiation  pressure  option.  Also, 
y,  A,  m  may  be  input  individually 
through  RPGAM,  RPA,  RPM. 

Note:  NDAYS  must  be  specified  non¬ 
zero,  with  corresponding  ephe¬ 
meris  input,  when  radiation 
pressure  parameters  are  input. 
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Variable  Name 
RPGAM 

RPA 

RPM 

ZONAL 


CJ 

SECT 

TESS 


Dimension 

1 

1 

1 


12 


Description 


Radiation  pressure  parameter, 
y,  reflectivity  constant. 


3 

ft 

C 

-  OS 
v  n, 

£Z 

to  o 

6  v 
s  3 

H  a 


Radiation  pressure  parameter, 
A,  effective  area  of  the  vehicle 
in  square  meters. 

Radiation  pressure  parameter, 
m,  mass  of  the  vehicle  in 
kilograms. 


Array  of  cells  used  for  callouts  of 
the  coefficients  of  the  zonal  harmonics 
J2,  •  •  •,  J12.  A  "l"  in  the  ZONAL 
word  indicates  that  the  corresponding 
coefficient  of  the  spherical  harmonic 
is  to  be  included.  ZONAL(2), 
ZONAL(3),  ZONAL(4)  are  nominally 
set  to  "1"  by  the  program  which  in¬ 
dicates  that  J 2,  J3,  and  J4  are  in¬ 
cluded  in  the  simulation. 


12  Values  of  the  coefficients  of  the 

zonal  harmonics  J  2,  *  •  •  ,  Jj2,  may 
be  altered  on  input  through  the  CJ 
array,  CJ(2),  •  •  •  ,  CJ(12). 

6  Array  of  cells  used  for  callouts  of 

the  sectional  harmonics,  non-zero  to 
include  the  desired  harmonic. 
SECT(2)  nominally  set  =  1. 

( j2*  J3.  •  •  • . 

15  Array  of  code  words  for  selection  of 

tesseral  harmonics,  where  each  cell 
is  of  the  form  N  >  1  0  +  M  where  N  is 
the  degree  and  M  the  order  of  the 
desired  tesseral. 
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Variable  Name 


CLAMNN 


CJNM 


Dimension  Description 

For  example,  if  two  of  the  desired 
tesserals  to  be  included  is  and 
J*,  a  NAMELIST  card  "TESS  =  21,  31' 
must  be  included. 

6  Array  containing  values  of  the  angles 

associated  with  the  coefficients  of  the 
tesseral  harmonics  A^,  A^,  *  *  *  ,  A^ 
where  CLAMNN( 2)  =  A^ 

CLAMNN(3)  =  A^ 


CLAMNN(6)  =  A^ 


6,6 


Six  by  six  array  containing  the  coef¬ 
ficients  of  the  sectorial  and  tesseral 
harmonics  and  their  associated  angles 
The  CJNM  matrix  contains 

J  j,  J^,  •  *  •  ,  along  the  main 

1  1  5 

diagonal,  J^,  J y  ’  »  ^6  below 

diagonal  and 
11  5 

A ^ >  A y  •  •  *  ,  A^  above  the  diagonal 


CJNM  = 


>3 

'i 

'l 

ri 


'2 

1 

't 

r  2 


1 

3 

2 

3 

3 

3 

-J 

'\ 

r3 


1 

4 

2 

4 

3 

4 

1 

r4 


1 

5 

2 

5 

3 
5 

4 

5 

r5 
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2.  2.  4  Sensor  Cards 


The  NRTPOD  sensor  cards  are  identical  to  the  PREMOD- 
MHESPOD  card  formats.  See  Section  1.2.5  for  description. 

2.  2.  5  Observation  Cards 

The  NRTPOD  observation  cards  are  identical  to  the  PREMOD- 
MHESPOD  card  formats.  See  Section  1.2.6  for  description. 

2.2.6  Ephemeris  Cards 

NRTPOD  requires  that  ephemeris  cards  be  input  if  the  effects  of 
lunar  and  solar  perturbations  and/or  radiation  pressure  are  to  be  included 
in  the  mathematical  model.  The  card  format  is  identical  to  the  PREMOD- 
MHESPOD  ephemeris  cards  as  described  in  Section  1.2.7. 

The  four  ephemeris  cards  as  described  in  Section  1.2.7  must  be 
input  for  each  day  of  ephemeris  input.  A  minimum  of  4  days  of  lunar- 
solar  ephemeris  cards  must  be  input  to  NRTPOD  if  perturbations  of 
acceleration  due  to  the  moon  and  sun  and/or  radiation  pressure  perturba¬ 
tions  are  to  be  simulated  in  the  trajectory  model. 

No  ephemeris  cards  are  required  if  these  perturbations  are  not  to 
be  simulated.  The  maximum  number  of  days  of  lunar-solar  ephemeris 
cards  accepted  by  NRTPOD  is  10,  if  the  input  data  require  this  amount. 

If  ephemeris  cards  are  input,  in  other  words,  if  NDAYS  (NAMELIST 
INPUT)  is  set,  NRTPOD  expects  NDAYS  days  worth  of  ephemeris  cards 
placed  directly  behind  the  NAMELIST  input  cards  in  the  data  deck.  See 
section  2.  2.  1  for  a  description  of  the  NRTPOD  input  deck. 


i 
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2.  3  PRINTED  OUTPUT 


The  NRTPOD  output  is  an  off-line  printout.  The  output  is  sectioned 
into  one  or  more  pages  of  particular  information.  The  sections  are  out¬ 
lined  below  with  reference  to  the  particular  description  which  are  sup¬ 
plemented  with  sample  printout. 


Data 

Input  Listing 

Run  Header 

Observations 

Residuals 

Mean  and  Standard 
Deviations  by  Sensor 

Iteration  Summary 

Trajectory  Print 

Matrix  Update 

2.  3.  1  Input  Listing 


No.  of  Pages  Section 

1  2.  3.  1 

1  2.  3.  2 

1  or  more  2,  3.  3 

1  or  more  2.  3.  4 

1  2.  3.  5 

1  2.  3.  6 

1  or  more  2.  3.  7 

1  or  more  2.  3.  8 


This  page  lists  the  NAMELIST  input  cards  beginning  with  the 
$  INPUT  card.  The  columns  in  the  listing  correspond  to  the  punched 
columns  in  the  input  cards  and  are  a  quick  and  convenient  check  for  proper 
input  to  the  run.  Figure  2-3  shows  a  sample  input  listing  page.  The  JDC 
card  is  printed  on  the  page  immediately  preceding  the  input  listing  page. 


2.  3.  2  Run  Header  Data 

The  run  identification  data,  the  initial  conditions,  and  the  sensor 
information  comprise  the  Run  Header  page.  These  data  identify  the  run, 
presents  the  initial  conditions  in  standard  coordinate  systems,  and  labels 
certain  input  quantities.  Figure  2-4  is  a  sample  Run  Header  page.  Each 
line  is  described  as  follows: 


Line  No. 


Line  Description 


1  Program  name  —  ORBIT  DETERMINATION 

PROGRAM  —  NRTPOD 

2  Vehicle  number  —  from  columns  4-7  of  JDC 
Vehicle  name  —  from  columns  8-19  of  JDC 

3  ALPHA  G  ZERO  —  Right  ascension  of  Greenwich 

meridian  at  0  of  day  of  epoch 
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STVec  *  4. 113601 3 *33. 359341, 12 1.9343 1.150.  92382. 6*50. 016 7, 6. 28380435 
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Line  No. 

Line  Description 

4 

Numerical  value  of  Alpha  G  Zero,  in  degrees 

5 

INITIAL  CONDITIONS 

6,  7 

Epoch  time  of  the  run 

7,8 

Initial  conditions  in  geocentric  inertial  Cartesian 
coordinates;  units  are  km  and  km/sec 

8,  9 

Initial  conditions  in  geocentric  inertial  polar 
spherical  coordinates;  units  are  degrees,  km  and 
km/  sec. 

10,  11 

If  drag  is  input,  the  numerical  value  of  CnA/m  in 
m  2  /  kg. 

12,  13 

If  radiation  pressure  is  input,  the  numerical  value 
of  yA/m  in  m^/kg. 

15- 

Sensor  information:  For  each  sensor  in  the  input 
deck  the  following  information  is  printed: 

a)  Station  ID 

5): 

b)  North  geodetic  latitude;  0,  degrees 

c)  East  longitude;  X,  degrees 

d)  Altitude  above  ellipsoid;  h,  meters 

e)  Range  bias;  R^,  km 

f)  Azimuth  bias;  A^,  degrees 

g)  Elevation  bias;  E^,  degrees 

h)  Range-rate  bias;  R^,  km/sec 

i)  Time  bias;  T^,  seconds 

2.  3.  3  Observations 

This  page,  and  any  subsequent  ones,  lists  the  chronologically 
ordered  observations  for  this  run.  If  epoch  precedes  the  observations, 
the  listing  begins  with  the  observation  nearest  epoch  and  proceeds  forward 
in  time.  If  epoch  is  past  the  observations,  the  listing  begins  with  the  ob¬ 
servation  nearest  epoch  and  proceeds  backward  in  time.  And,  if  epoch  is 
in  the  middle  of  the  data  span,  the  listing  begins  with  the  observation 
nearest  epoch  and  preceeding  it,  and  proceeding  backwards;  after  the  last 
observation  before  epoch  is  listed,  the  program  goes  back  to  epoch,  and 
lists  the  observations  ahead  of  epoch,  beginning  with  the  nearest  to  epoch. 
Figure  2-5  shows  a  sample  observation  page  listing.  The  columns  sym¬ 
bols  and  their  descriptions  are: 
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Column  Symbol 
ID 

T-TO 


YR 

MN 

DY 

HR 

MIN 

SECS 

RANGE 
SIGMA  R 

AZ 

SIGMA  A 
EL 

SIGMA  E 

R  DOT 
SIGMA  R. 


2.  3.  4  Residuals 


Description 

Observing  station1  s  identification 

Time  of  the  observation  in  minutes  from  epoch 
(TO) 

Greenwich  time  at  which  the  observation  was 
made.  Year,  month,  day,  hour,  minutes,  and 
decimal  seconds. 


Range  observation,  in  kilometers 
Standard  deviation  of  range,  in  kilometers 

Azimuth  observation  in  degrees,  from  north 
Standard  deviation  of  azimuth,  in  degrees 

Elevation  observation,  in  degrees,  from  horizon 
Standard  deviation  of  elevation,  in  degrees 

Range  rate  observation,  in  kilometer s /second 
Standard  deviation  of  range  rate,  in  kilometers/ 
second 


The  residuals  are  defined  as  the  difference  between  the  measured 
observations  and  the  computed  observations:  0rn-0c  =  residual.  The 
computed  observations  are  based  on  the  input  initial  conditions  for  the 
first  iteration,  and  on  the  improved  initial  conditions  on  succeeding  itera¬ 
tions.  The  residuals  are  chronologically  sorted  and  are  listed  in  the  same 
order  as  the  observations,  and  correspond  exactly  in  time  with  their 
as sociated  measured  observations.  Figure  2-6  shows  a  sample  residuals 
print  page.  The  column  symbols  and  their  descriptions  are  as  follows: 


Column  Symbol 


Description 


ID 


Observing  station1  s  identification 


TIME 


Time  in  minutes  from  epoch 


N  Serial  number  assigned  to  each  residual  for 

identification  purposes.  It  is  constant  through 
the  run. 
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Figure  2-6.  Sample  Residuals  Print 


Column  Symbol 

Description 

R 

(KM) 

A 

(DEG) 

Range  residual  in  kilometers 

Azimuth  residual  in  degrees 

E 

(DEG) 

RDOT 

(KM/SEC) 

Elevation  residual  in  degrees 

Range  rate  residual  in  kilomete r s / second 

U 

(KM) 

Up  component  of  the  position  residual,  collinear 
with  and  positive  in  the  same  direction  as  the  radius 
vector,  in  kilometers* 

V 

(KM) 

Down  component  of  the  position  residual,  orthogonal 
to  the  radius  vector,  positive  in  the  direction  of 
motion  and  in  the  orbit  plane,  in  kilometers. 

W 

(KM) 

Cross  component  of  the  position  residual,  normal 
to  the  orbit  plane  and  positive  in  the  direction  of 
the  angular  momentum  vector  to  complete  a  right- 
handed  coordinate  system,  in  kilometer s. 

VM 

(KM) 

Magnitude  of  the  position  residual  or  displacement 
vector,  in  kilometers. 

BETA 

(DEG) 

Residual  angle  between  the  measured  positive 
vector  and  the  computed  orbit  plane,  in  degrees. 

The  numerical  values  for  the  residuals  are  listed  in  the  above  col¬ 
umns  on  one  or  more  pages.  A  symbol  or  letter  following  a  numerical 
value  indicates  that  the  residual  has  been  deleted  from  further  inclusion 
in  the  differential  correction  by  a  specified  criterion,  which  are  the 


following: 

• 

Symbol 

* 

Criterion 

Observation  deleted  by  DELETE  card  (analyst 
selected) 

N 

Observation  deleted  as  a  gross  outlier;  if  A>Na, 
observation  is  deleted,  where  N  is  some  large 
number,  nominally  1000. 

K 

Observation  deleted  from  this  iteration  (other  than 
first)  by  KRMS  test. 

S 

Observation  deleted  because  weight  is  zero. 

(called  by  setting  O  to  zero) 

2.26 


A  fifth  type  of  deletion,  DTMAX,  (See  Preliminary  Data  input, 

Section  2.  2.  3)  rejects  observations  which  are  a  specified  number  of  days 
from  epoch  (nominally,  20  days).  If  an  observation  is  deleted  by  this 
criterion,  it’s  residual  is  not  printed  (nor  computed)  in  the  residuals  page. 

2.  3.  5  Mean  and  Standard  Deviations  by  Sensor 

To  aid  the  analyst  in  determining  where  systematic  error  solution 
is  required,  or  in  deleting  data,  estimates  of  standard  deviations  by  sensor 
and  type  are  printed.  This  information  is  listed  immediately  following  the 
residuals  print;  Figure  2-7  is  a  sample  output.  A  given  station*s  data  are 
arranged  into  columns  of  three  lines  each. 

The  column  symbols  and  their  descriptions  are: 

Column  Symbol  De scr lption 

ST.  ID.  Observing  station’s  identification 

R  Numerical  values  associated  with  range,  in 

kilometers 

Numerical  values  associated  with  azimuth,  in 
degrees 

Numerical  values  associated  with  elevation,  in 
degrees 

Numerical  values  associated  with  large  rate,  in 
kilometers  /  second. 

The  last  column  on  the  right  identifies  the  data  on  each  line  as  follows: 

MEAN  The  arithmetic  mean  or  average  values  of  the 

residuals  for  each  type  of  data  observed  by  the 
given  station. 

RMS  The  estimated  standard  deviation  (one  sigma)  for 

each  type  of  data  observed  by  the  given  station. 

NA/NR  The  number  of  observations  accepted/the  number 

of  observations  rejected,  for  each  type  of  data 
observed  by  the  given  station. 

2.  3.  6  Iteration  Summary 

This  page  shows  the  results  and  convergence  status  for  a  given 
iteration.  If  the  solution  is  not  converging,  the  normal  and  variance- 
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covariance  matrices  are  not  printed  on  the  iteration  summary  page. 
The  first  line  on  the  page  identifies  the  iteration  number.  Figure  2-8  is 
a  sample  iteration  summary  printout.  The  following  describes  the  tabu¬ 
lated  solution  vector  data,  arranged  in  columns  as  shown  below: 


Column  Symbol 

Description 

CATEGORY  1 
VARIABLES 

These  are  the  orbital  and  drag  parameters, 
identified  by  a  number  and  a  name  as  follows: 

1  ALPHA 

Right  ascension  (degrees) 

2  DELTA 

Declination  (degrees) 

3  BETA 

Flight  path  angle  from  local  vertical  (degrees) 

4  AZ 

Azimuth  to  inertial  velocity  vector,  clockwise 
from  true  north  (degrees) 

5  R 

Radius  vector  from  geocenter  (kilometers) 

6  V 

Velocity  vector  magnitude  (kilometer  s  /  sec) 

7  DRAG 

Drag  parameter  (meter s  /kilogram) 

DELTA 

The  corrections  applied  by  the  program  to  each 
variable 

OLD 

Numerical  values  for  the  variables  from  the 
previous  iteration 

NEW 

Numerical  values  for  the  variables  for  this 
iteration  (NEW=  ODD  +  DELTA) 

SIGMA 

The  uncertainty  in  each  variable,  computed  from 
the  variance-covariance  matrix 

BOUNDS 

The  constraints  applied  to  the  changes  which  the 
program  is  allowed  to  make  to  the  solution 
variable  s. 

II  category  2  variables  (station  and  data  biases)  are  being  solved  for, 
a  tabulation  much  like  that  just  described  will  be  listed  next.  The  columns 
are  as  follows: 
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Sample  Iteration  Summary  Print  (NRTPOD) 


Column  Symbol 


Description 


CATEGORY  2 
VARIABLES 


DELTA 

OLD 

NEW 

SIGMA 

BOUNDS 


These  variables  are  numbered  from  the  next  digit 
following  ^e  last  category  1  variable  number  to  25. 
Eacn  out..  _-r  will  be  followed  by  the  station  ID,  as 
used  in  the  SENSOR  LOCATIONS,  and  the  name 
of  the  variable  can  be  any  of  the  following: 

RBIAS  Range  (kilometers) 

A7^JA.S  h  .uth  (degrees) 

EBIAS  Elevation  (degrees) 

RDBI\S  Range  rate  (kilometer s/ sec) 

TBIAS  Time  (seconds) 

LTBIAS  Station  north  latitude  (degrees) 

LNBIAS  Station  east  longitude  (degrees) 

HBIAS  Station  altitude  (meters) 


Same  as  for  Category  1  variables 


The  following  linp  states  "SOLUTION  IS  (IS  NOT)  CONVERGING.  " 
The  solution  is  converging  if  the  current  RMS  of  the  residuals  is  smaller 
than  the  best  RMS  to  this  point  in  the  run. 

This  message  is  followed  by  "SOLUTION  IS  (IS  NOT)  AFFECTED  BY 

BOUNDS.  "  The  program  first  forms  an  unbounded  solution,  and  if  it 

satisfies  the  condition  y  /  DELTA  i  \  <  ,  mSOLUTION  IS  NOT 

1  \  BOUNDS^  f 

AFFECTED  BY  BOUNDS"  is  printed.  If  the  above  condition  is  not 
satisfied,  the  normal  equations  are  solved  until  the  constraint  is  satisfied, 
and  "SOLUTION  IS  AFFECTED  BY  BOUNDS1'  is  printed. 

Next  are  printed  the  current  RMS  (Root  Mean  Square  of  Weighted 

Residuals),  the  predicted  RMS,  and  the  best  RMS  so  far  in  the  curve  fit. 

T 

If  the  solution  is  converging,  the  normal  matrix  (A  A)  and  the  inverse  of 
the  normal  matrix,  the  variance -covariance  matrix  are  printed. 
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The  next  message  will  appear  on  the  final  iteration  only,  and  will 
be  one  of  the  following: 


SOLUTION  HAS  CONVERGED 
MAXIMUM  ITERATIONS  EXCEEDED 
BOUNDS/8  FAILED 

This  indicates  the  criterion  on  which  the  run  is  terminated. 

2.  3.  7  Trajectory  Print 

The  last  page(s)  of  the  run  consist  of  blocks  of  trajectory  and  related 
data,  updated  to  times  referenced  to  epoch  which  were  specified  by  input. 
Figure  2-9  shows  a  sample  trajectory  printout  page.  The  initial  conditions 
for  propagating  the  trajectory  are  (1)  specified  by  input  if  it  is  a  trajectory 
run  only,  or  (2)  obtained  from  the  converged  differential  correction  which 
immediately  precedes  the  trajectory  runout. 

Preceding  the  first  trajectory  block  are  the  secular  rates  of  the 
right  ascension  of  the  ascending  node  and  the  argument  of  perigee  (degrees/ 
day)  and  the  anomalistic  period  (minutes)  to  order  J^.  The  first  line  of 
each  trajectory  block  contains  the  Gregorian  date  and  the  Greenwich  mean 
time  for  the  data,  time  in  minutes  from  epoch,  and  time  in  days  from 
January  0  of  the  year  of  epoch.  The  following  list  describes  the  parameters 
associated  with  the  symbols  in  the  trajectory  block: 


Symbol 

X 

Y 

Z 

XDOT 

YDOT 

ZDOT 


ALFA 


Description 

Components  of  the  position  and  velocity  vector  in 
geocentric  inertial  Cartesian  coordinates.  It  is  a 
right-handed  orthogonal  system  where  the  X  axis 
)is  in  the  direction  of  the  vernal  equinox  and  the 
Z  axis  is  in  the  direction  of  true  north.  Units  are 
kilometers  and  kilometer s / second.  Coordinates 
are  true  of  0*1  0  day  of  epoch. 

Right  ascension,  in  degrees 


DLTA  Declination,  in  degrees 

BETA  Flight  path  angle,  in  degrees,  positive  downward 

from  the  local  vertical 
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Figure  2-9.  Sample  Trajectory  Printout 


Symbol 

Description 

AZ 

Azimuth  of  the  velocity  vector,  in  degrees,  positive 
clockwise  from  true  north. 

R 

Magnitude  of  radius  vector  from  the  geocenter,  in 
kilometers 

V 

Magnitude  of  velocity  vector,  in  kilometer s /second 

ALT 

Height  of  the  satellite  above  mean  sea  level,  in 
nautical  miles. 

LAT 

Geodetic  north  latitude  of  the  satellite,  in  degrees. 

LON 

East  longitude  of  the  satellite,  in  degrees. 

SMA 

Semi-major  axis,  in  kilometers. 

ECC 

Eccentricity  of  the  orbit. 

INC 

Inclination  of  the  orbit  plane  to  the  equator,  in 
degrees,  positive  counterclockwise  from  the 
equatorial  to  the  orbit  plane  at  the  ascending  node. 

NODE 

Right  ascension  of  the  ascending  node,  in  degrees. 

OMG 

Argument  of  perigee,  in  degrees,  positive  in  the 
direction  of  motion  from  the  ascending  node. 

M 

Mean  anomaly,  in  degrees,  positive  in  the  direc¬ 
tion  of  motion  from  perigee. 

UX  1 

UY 

UZ  I 

1  Direction  cosines  of  the  position  in  Cartesian 
Scoordinates  with  axes  directed  as  in  the  XY Z  sys- 
[  tern  previously  described. 

RPVX  1 

RPVY 

RPVZ  1 

Components  in  Cartesian  coordinates  of  a  vector 
^  in  the  orbit  plane  which  is  orthogonal  to  the  posi¬ 
tion  (r)  and  angular  momentum  (h)  vectors. 

ALAT 

Argument  of  latitude,  in  degrees,  equals  the  sum 
of  the  argument  of  perigee  and  the  true  anomaly. 

TAU 

Time  until  the  next  ascending  nodal  crossing,  in 
minutes  from  epoch. 

PRD 

Osculating  period  of  the  orbit,  in  minutes. 

1/A 

Inverse  of  the  semi-major  axis,  in  earth-radii 
(Indeterminacy-free  element). 

D 

R-  R 

Indeterminacy-free  element  -  ^ _  , 

1/2 

in  (earth- radii) 

2-34 

Sym  bol 


Description 


APOG 


Altitude  of  apogee  above  a  mean  equator,  in 
nautical  miles. 


PRG 


Altitude  of  perigee  above  a  mean  equator,  in 
nautical  miles. 


ELLIPSE 

HYPERBOLA 


Prints  one  or  the  other  to  describe  the  conic’s 
form.  If  HYPERBOLA,  many  of  the  preceding 
values  will  be  omitted. 


The  above  parameters  are  repeated  for  as  many  updates  as  were 
requested  in  the  input. 

2.  3.  8  Matrix  Update 

In  addition  to  the  block  of  data  printed  for  each  trajectory  update 
time,  as  described  above,  a  normal  matrix  and  an  error  matrix  can  be 
updated  and  printed  at  each  print  time.  As  in  the  case  for  the  trajectory 
update  only,  the  initial  conditions  (the  matrix  at  t  =  0  =  epoch)  are  obtained 
from  (1)  input,  if  it  is  a  trajectory  and  update  only;  or  (2),  from  the  matrix 
computed  in  the  differential  correction  which  precedes  the  trajectory  and 
update.  The  symmetric  error  matrix  is  called  the  "sigma  and  rhoM  matrix 
and  is  derived  from  the  covariance  matrix;  the  diagonal  terms  are  the 
estimated  standard  deviations  (cr)  and  the  off  diagonal  terms  are  the  cor¬ 
relation  coefficients  (p).  The  normal  matrix  is  the  inverse  of  the  covariance 
matrix  and  is  obtained  in  this  way;  hence,  it  is  necessary  to  input  two 
matrices  when  a  matrix  update  is  required.  See  Figure  2-10  for  a  sample 
print  of  a  trajectory  propagation  and  a  matrix  update.  The  matrices  are 
in  polar  spherical  (ADBARV)  coordinates  and  the  following  list  describes 
the  parameters  given  in  the  columns  (and  rows)  of  both  the  "sigma  and  rho11 
matrix  and  the  normal  matrix: 

Column  Symbol  Description 


4 


2 


5 


3 


1 


а,  right  ascension  (degrees) 

б,  declination  (degrees) 

/3,  flight  path  angle  (degrees) 

A,  azimuth  of  velocity  vector  (degrees) 
R,  radius  vector  magnitude  (kilometers) 


2.35 


START  TRAJECTORY 
END  TRAJECTORY 


o 

<T 


rc 

n 

rv 

r 

r 

r 

rr 

cr 

n 

O 

o 

cr 

r 

O 

m 

u 

• 

u 

u 

u 

u 

u  * 

U 

tr 

4 

4- 

4 

rv. 

n 

vCi 

n 

G 

4)!  a 

a 

4 

Cf 

U 

h- 

— 

•— i 

4 

ir 

IT 

cr 

>£ 

a 

— J 

o 

a 

4 

0 

0 

cv 

z 

cr 

o 

r- 

o 

CM 

C 

LL 

<r 

or 

H 

c 

e 

rr 

-5 

vT 

ff 

c 

4 

4 

CM 

4 

c 

*— » 

rv 

• 

• 

• 

• 

• 

• 

x!  e 

O 

o 

c\ 

r: 

o 

• 

o 

Of 

r 

i 

UJ 

c 

x 

ff 

k- 

z 

M 

c. 

G 

n 

_i 

< 

r 

<■' 

< 

or 

LL 

Of 

«r 

-J 

-j 

— i 

i— 

G 

l  ) 

O 

LL 

< 

•— 

U 

ff 

on 

ff 

4 

o 

o 

c 

rr 

KA 

ff 

V 

O 

c 

o 

o 

o 

c 

O 

M 

O' 

< 

1 

_) 

rv 

O 

u 

UJ 

U-‘ 

UJ 

u 

U' 

U 

< 

o 

ff 

n 

4. 

>C' 

a 

1C 

in 

3E 

• 

45 

Or 

v0 

r—i 

CT 

fp. 

C 

*— < 

h 

4 

4 

ff 

o 

n 

m 

Z 

ff 

rr, 

C 

c 

r^- 

C 

O' 

<X 

ff 

ff 

ff 

ir 

rr 

p— < 

*— 4 

cr 

f* 

4 

in 

CT 

* 

ff 

it 

cm 

4 

os 

vf 

C 

>T 

• 

I  ff 

ff 

ff 

in 

m 

or 

vT 

o 

• 

• 

• 

•. 

• 

• 

• 

o 

o 

o 

rx 

i 

o 

i 

o 

O 

KJ 

oc 

•> 

X 

V 

»vj 

cr 

«X 

> 

> 

> 

DC 

a 

CL 

a 

a 

X 

a: 

OC 

oc 

o 

o 

cv 

cm 

CM 

o 

o 

o 

ff 

CL 

o 

o 

o 

o 

o 

o 

o 

LL 

1 

o 

UJ 

UJ 

LL 

LU 

u 

u 

u 

LU 

o 

x 

V 

ff 

O 

vfk 

c 

cr 

00 

k— 

c 

45 

ff 

m 

O' 

a 

o 

< 

UJ 

a 

o 

O 

or 

o 

vT. 

rn 

r- 

or 

- 

li¬ 

or 

ff 

4 

m 

CM 

>c 

4 

rr 

o1 

O' 

GO 

H 

r- 

LU 

r 

on 

or 

o 

O 

n- 

<3 

vT 

c 

Ui 

UJ 

i  C 

H! 

O 

** 

00 

lf\ 

w-i 

o 

4 

k- 

rr 

4 

CO 

sC 

rr 

>C 

IT, 

►- 

ff 

3 

• 

• 

• 

• 

• 

• 

* 

or 

z 

O 

o 

o 

o 

O 

O 

Oi 

UJ 

* 

a 

c* 

X 

i 

«T 

< 

<1 

X 

X 

*vj 

o 

LL 

k- 

k- 

3 

3 

3 

c 

u> 

-J 

UJ 

a 

LU 

< 

Q 

CO 

< 

on 

f-« 

CM 

CM 

CM 

cv 

in 

o 

C 

o 

O 

O 

O 

O 

ff 

l 

• 

UJ 

Ui 

UJ 

LU 

U 

LL 

UJ 

IT. 

ff 

4 

H 

or 

H 

P-. 

oc 

<\j 

CM 

CO 

O' 

O' 

O' 

or 

CM 

in 

on 

-t 

o 

CM 

in 

O 

CM 

w~4 

Z 

H 

ff 

ff 

o 

rr 

r~ 

4 

ff 

CM 

CM 

»-* 

CO 

X 

IT 

4> 

vO 

-t 

IT 

4 

CM 

in 

cn 

CM 

r-» 

-k 

04 

o 

• 

• 

t 

• 

• 

• 

* 

O 

o 

O 

o 

o 

C 

o 

O 

LU 

1 

1 

1 

k- 

UJ 

< 

4> 

Of 

k- 

k- 

k- 

UI 

o 

X 

O 

a: 

H 

X 

o 

o 

o 

o 

X 

ff 

o 

c 

c 

Cl 

o 

UJ 

4 

4 

X 

>- 

ffj 

z 

o 

l A 

O 

a 

4 

4 

CM 

CM 

o 

z 

4 

o 

O 

o 

o 

O 

O 

O! 

• 

m 

1 

m 

45 

UJ 

UJ 

UJ 

UJ 

UJ 

LL 

1 

a 

4T 

CM 

O' 

CM 

>*- 

00 

i— 4 

ff 

ff 

m 

CM 

in 

O' 

CO 

m 

O' 

o 

CM 

vO 

00 

o 

O 

CM 

•-H 

O' 

a 

® 

o 

00 

O 

H 

UJ 

I  00 

o 

4 

CO 

«4* 

in 

o 

Z 

'O 

ff 

ff 

CM 

O 

o 

h- 

3 

4 

r\ 

4 

n- 

vO 

O' 

00 

• 

« 

• 

• 

• 

• 

«< 

O 

o 

O 

o 

o 

o 

o 

X 

> 

KJ 

< 

o 

o 

<; 

#*| 

X 

o 

z 

N, 

1 

on 

UJ 

rH 

< 

ff 

4 

ff 

o 

4) 

4 

vT 

i i 

r-4 

a 

45 

IT 

• 

• 

a) 

o 

O 

4-> 

ctJ 

'O 

*4 

rr 

IT 

CC 

Oj 

o 

i 

r: 

O 

o 

D 

UJ 

IL 

LL 

IL 

V 

00 

cv 

ff 

n 

•  r4 

o 

4 

CV 

ff 

M 

ir 

r- 

IT 

ir 

ff 

-<-> 

<n 

ir 

o 

IT' 

Oj 

O 

45 

cr 

Vr* 

Oj 

»n 

<r 

IT 

c\ 

ff 

IT 

1/ 

CMi 

or 

4 

CM 

XI 

4 

• 

• 

• 

fl 

o 

o 

O 

o 

cd 

>* 

rv  o 

o 

a 

%r 

rr 

L, 

o  o 

1  1 

c 

O 

C 

O 

0 

UJ  LL 

UJ 

u 

LL 

UJ 

+J 

(J 

4*  4) 

o 

ff 

cc 

ri 

d) 

O'  vO 

m 

ff 

O' 

4» 

*-•  o 

4 

4 

O' 

45 

ff 

cd 

O  CM 

4 

o 

4> 

CC 

o  r>i 

ff 

m 

O 

c 

1/5 

O'  o 

IT 

in 

o 

45 

H 

LU 

CM 

cc 

ff 

CC 

K 

in  cv 

r- 

O' 

or 

UH 

< 

•  • 

• 

• 

• 

• 

O 

Z 

c  o 

c 

o 

c 

c 

+_» 

Q 

Of 

4*0  0 

o 

in 

O' 

00 

1 

45 

O' 

a 

O 

O  C  O 

o 

UJ 

o 

o 

O 

o 

O 

U 

1  I  1 
LU  Ui  UJ 

1 

UJ 

k- 

< 

LL 

LL 

LL 

UJ 

K 

o 

o  m  or 

in 

z 

O 

ff 

00 

00 

_J 

4  O'  cv 

CM 

•— 

H 

CC 

00 

a> 

< 

rr 

ffi  ff  O' 

>C 

o 

ff 

ff 

a  or 

CM 

^4 

o 

O'  cm  r^ 

00 

or 

O' 

ff 

o 

di 

fc-* 

m  h-  m 

4 

o 

00 

o 

CO 

00 

C 

or 

r^-  oc  in 

CM 

o 

ff 

CM 

m 

u 

UJ 

tT  H  OC 

ff 

Oi 

cr 

CM 

ff 

ff 

(d 

X 

CL  n  4 

ff 

ff 

4? 

CO 

a 

«  •  • 

• 

-j 

• 

«- 

• 

• 

to 

0 

0 

0 

O 

< 

O 

c 

o 

o 

or 

1 

1 

• 

o 

< 

ff  o  o  o 

c 

ad 

o 

O' 

O' 

ff 

O' 

_j 

CO  o  o 

o 

u. 

| 

P-i 

o 

o 

o 

o 

1 

c 

1 

1  1 

X 

rvj 

a 

LU  UJ  LU  UJ 

UJ 

a 

UJ 

LU 

LU 

UJ 

LL 

sO  in  4-  in 

ff 

in 

4 

ff 

»-4 

4> 

a? 

X 

cr 

oo  in  c 

00 

ff 

ff 

<MK  ff 

O 

u 

•PM 

CM 

r- 

4*  00 

n- 

or 

CM 

o 

>o 

00 

o 

CO 

0 

or 

CO 

<CaH 

ff 

< 

CM 

m 

ff 

CO 

K 

m  r-  o 

45 

-j 

| 

4 

ff 

45 

O' 

00 

< 

4-  m  a*  H 

4) 

o 

4 

ff 

O  ff 

4 

r_ 

X 

O  CM  O'  h 

CM 

CL 

4> 

ff 

ff 

< 

O'  CM 

ff 

45 

CM 

ff 

■-H 

4 

C 

■ 

•  •  • 

• 

X 

l 

• 

• 

• 

i  • 

• 

X 

o 

o  o  o 

O 

j 

o 

C 

o 

O 

O 

or 

or 

1 

1 

1 

k— 

i 

c 

ffi  o  o  o  o 

o 

O  O' 

cc 

oo 

ff 

o 

Z 

o  o  o  o  o 

o 

X 

»-H  O 

o 

c- 

o 

r—t 

< 

1 

1  t 

! 

LU 

UI 

UJ  UJ  UJ 

UJ 

-j 

i 

UJ  UJ 

UJ 

UJ 

UJ 

UJ 

< 

O'  <4"  in  o  co 

o 

< 

ff 

CM 

4 

in 

4> 

4 

X 

vO 

cn 

00  r* 

CM 

X 

l-H 

O' 

ff 

ff 

O 

ff 

o 

#-4 

r^ 

NCC  o 

in 

or 

«■* 

o 

CO 

r—t 

4 

ff 

M 

CM 

CM 

O'  in  if-4 

m 

o 

O'  ff 

4 

O' 

4) 

CO 

m 

vO 

4"  O'  O  ff' 

»-4 

z 

•— < 

ff 

O 

o 

45 

ff 

vO 

CM 

cn  cm  in 

*— I 

in 

CM 

o 

CM 

O' 

ff 

CM 

ff) 

'U  C0  00 

>0 

O' 

ff 

4> 

CM 

CM 

O' 

»-*  O'  ff 

CO 

■  CM 

CM 

i-H 

ff 

ff 

• 

« 

•  •  • 

• 

• 

>  • 

• 

• 

• 

• 

O 

o 

1 

o  o  o 
1  1  1 

o 

1 

o 

O 

o 

1 

o  o 
1 

o 

»-4 

CM 

ff  4  in 

>0 

1 

1 

2 

3 

4 

m 

>0 

I 


2.36 


Column  Symbol 
6 


Description 

V,  velocity  vector  magnitude  (kilometer s/ sec) 

7  CQA/m,  magnitude  of  drag  parameter  (meters  kg) 

The  updated  matrices  are  either  6x6  or,  if  drag  was  a  solution 
variable,  7x7. 


2.  4  MAGNETIC  TAPES 

2.  4.  1  NRTPOD  Trajectory  Tape  (TAPE  TTRJTP) 

Due  to  the  complexity  of  the  NRTPOD  program  and  the  limited  core 
space,  the  trajectory  simulator  segment  of  NRTPOD  is  overlayed  by  the 
differential  correction  and  print-update  segments.  The  trajectory  data  are 
transmitted  between  trajectory  and  differential  correction  and  between 
trajectory  and  print-update  through  the  trajectory  tape. 

The  trajectory  tape  is  in  the  FORTRAN  binary  mode,  composed  of 
a  variable  number  of  59-word  logical  data  records,  terminated  with  a 
59-word  sentinel  end-of-file  record  composed  of  the  same  floating  point 
number  in  each  word.  Following  the  sentinel  record  is  an  end-of-file  mark. 
Each  word  of  data  is  in  normalized  floating  point  form. 


Each  record  on  tape  corresponds  to  either  an  observation  timer  (if 
the  tape  is  being  generated  for  the  differential  correction  segment)  or  a 
timer  from  the  DELTT  array  (if  the  tape  is  being  generated  for  the  print- 
update  segment).  Each  data  record  is  composed  of  the  following 
information: 


Word  1 
Word  2 

Word  3-5 

Word  6-8 

Word  9-11 


Time  (minutes  from  0  hours  day  of  epoch) 

Impact  flag.  If  non- zero,  the  vehicle  has  impacted 
the  earth. 

x,  y,  z.  ,  .  the  geocentric  coordinates  of  the  space¬ 
craft  in  earth  radii. 

x,  y,  z.  .  .  the  geocentric  velocity  of  the  spacecraft 
in  earth  radii/minute. 


x,  y,  z.  .  .  the  geocentric  acceleration  of  the  space¬ 
craft  in  earth  radii/minute  squared. 
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the 


Words  12-59  are  reserved  for  the  ^ f '  *' .  X ‘ ,  , 

3(CAT1  variable) 

partial  derivatives  of  the  current  position  and  velocity  of  the  spacecraft 
wiih  respect  to  the  CAT1  variable.  Partials  will  appear  corresponding 
to  each  non- zero  entry  in  the  CAT1  array. 

.  3x  3y  3z  3x  3y  dz 
Words  12  -  17  5^-.  5^-.  5^-,  3^-.  5^-,, 


Words  18-23 


Words  54  -  59 


8x 


3y  3z  _  _  _ 

•  cTpT’  5p7’ 


2  "p2  ^2 


ay  dz 

’  3Pr>  ’  5p7’  ’  ’ 


\ 

3x 

^  ap8  '  dp8 


3z 

9p8 


If  only  three  non- zero  entries  appear  in  the  CAT1  array,  only  words 
12-29  will  be  used  for  the  partials,  and  words  30  -  59  will  be  0.  The 
partial  derivatives  are  in  units  of  earth  radii,  radians  and  minutes  for 


a,  6f  p,  A,  R,  V  and  units  of  feet,  squared/slug  for 


C  ,A 


m 


2.  4.  2  NRTPOD  Observation  Tape  (TAPE  MT) 

The  NRTPOD  observation  tape  is  a  FORTRAN  binary  tape  generated 
from  the  observation  cards  presented  on  input.  The  observational  data  are 
placed  on  tape  time  sorted  about  the  NRTPOD  epoch.  Any  pre-epoch  data 
will  occur  first  on  tape,  in  descending  time  order  from  epoch.  Following 
any  pre-epoch  data  will  be  the  post-epoch  observation  in  ascending  time 
order. 

Each  logical  record  on  the  observation  tape  is  253  words.  The  final 
data  record  is  a  sentinel  end-of-file  record  composed  of  253  words  of  the 
same  piece  of  data.  Following  the  sentinel  end-of-file  is  an  end-of-file 
mark.  All  of  the  observation  data  is  contained  in  the  first  file. 

A  typical  record  on  the  observation  tape  will  appear  as: 

Word  i  ...  station  ID  (BCD) 

Word  i  +  1  ...  time  of  observation  (minutes  from  0  hours  epoch  day) 


2.38 


Word  i  +  2 
Word  i  +  3  . 
Word  i  +  4  . 
Word  i  +  5 
Word  i  +  6  . 
Word  i  +  7  . 
Word  i  +  8  . 
Word  i  +  9  . 
Word  i  +  10. 
Word i  +  11  . 


Range  (earth  radii) 

Azimuth  (radius) 

Elevation  (radius) 

Range  rate  (earth  radii/minute) 
Not  used 

O  Range  (earth  radii) 
a  Azimuth  (radians) 
a  Elevation  (radians) 
a  Range  Rate  (earth  radii  /minute) 
Station  ID 


Each  record  is  composed  of  23  observations.  If  the  final  data  record 
does  not  contain  exactly  23  observations,  it  will  be  filled  out  with  floating 
point  zeros.  All  data  except  the  station  ID's  are  in  normalized  floating 
point  format. 
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2.  5  NRTPOD  STORAGE  MAP 

2,  5.  1  COMMON/EPHCOM/ECOM  (190) 
The  lunar-solar  ephemeris  data 


Name 

Equivalence 

Dimension 

Desc  ription 

XJD 

i 

10 

Julian  Date  -  2430000.  for 

each  day  of  lunar-solar 
ephemeris  data. 

POS 

ii 

10,  3,  2 

A  triply  subscripted  array  for  the 

Cartesian  position  of  the  moon  and 
sun  relative  to  the  earth  in  earth 
radii  measured  with  respect  to 
the  true  equator  and  equinox  of 
0  hours,  day  of  epoch.  The  first 
subscript  denotes  the  day  .  .  the 
second  subscript  denotes  x,  y,  or 
z  .  .  .  ;  the  third  subscript  is  1  for 
moon,  2  for  sun. 

DEL2  71  10,  3,  2  A  triply  subscripted  array  for 

the  second  central  differences 
of  the  coordinates  defined  in 
POS. 

DEJL4  131  10,  3,  2  A  triply  subscripted  array  for 

the  fourth  central  differences 
of  the  coordinates  defined  in 
POS. 


2.5.2  COMMON/VSTR/VSTR  (2700) 

The  variable  storage  block  for  NRTPOD  containing  arrays  and 
vectors  whose  length  is  a  function  of  the  input  solution  vector  or  the  number 
of  stations  used  during  the  fit.  The  location  of  the  first  cell  of  each  vector 
or  array  is  listed  in  / / BLK2. 

2.  5.  3  COMMON/TEMP/TEMP  (59) 

A  block  of  temporary  storage  for  use  by  any  NRTPOD  subroutine. 

2.  5.  4  COMMON/TRJ COM/TRJ  (60) 

The  following  COMMON  block  is  used  to  transmit  information  between 
subroutines  . 
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Name 

Equivalence 

Dimension 

Description 

COLA 

1 

1 

Cob  X,  where  X  =  the  vehicle 
longitude  at  the  current  inte¬ 
gration  time  in  TLIST  (2) 

SILA 

2 

1 

Sin  X 

COPH 

3 

1 

Cos  0,  where  0  is  the 
geocentric  latitude  of  the 
vehicle  at  the  current  integra¬ 
tion  time,  TLIST(2) 

SIPH 

4 

1 

Sin  0 

CSALF 

5 

1 

Cos  x,  where  x  is  the  right 
ascension  of  the  vehicle  at  the 
current  integration  time, 

TLIS  T(2) 

SNALF 

6 

1 

Sin  x 

T  MIN  US 

7 

1 

A  flag  to  indicate  to  subroutine 
SELECT  the  direction  of  inte¬ 
gration.  When  the  first  pre- 
epoch  time  is  processed, 

T  MIN  US  is  set  =  1.  When  the 
first  post-epoch  integration 
strip  is  taken,  the  integration 
list  is  initialized  if  TMINUS 
is  =  1 . 

TR 

8 

1 

Magnitude  of  vehicle  positive 
relative  to  geocenter,  in  earth 
radii. 

TR2 

9 

1 

Square  of  TR 

TR3 

10 

1 

Cube  of  TR 

TR5 

11 

1 

Fifth  power  of  TR 

TR7 

12 

1 

Seventh  power  of  TR 

TV 

13 

3 

The  Cartesian  velocity  com¬ 
ponents  x,  y,  z  of  the  space¬ 
craft  relative  to  a  rotating 
earth  in  earth  radii/minute. 

TVA 

16 

1 

The  magnitude  of  the  vector 
TV. 

FLVE 

17 

1 

Flag  set  by  TRAJ  to  indicate 
whether  the  variational 
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Name 


Dimension 


Description 


TPOT  18  3 


TBPERT  21  3 


TRPRES  24  3 


TDRAG  27  3 


PMAT  30  9 


VMAT  39  9 


48-60 

2.  5.  5  COMMON/ PLS/PLS  (125) 


equations  need  be  evaluated. 
On  predictor  steps  FLVE  is 
set  =  1  to  indicate  evaluation, 
on  corrector  steps  FLVE  is 
set  =  0. 

The  perturbative  acceleration 
of  the  spacecraft  due  to  the 
earth* s  potential  field,  in 
earth  radii/minute  squared. 

The  perturbative  acceleration 
of  the  spacecraft  due  to  the 
sun  and  moon,  in  earth  radii/ 
minute  squared. 

The  perturbative  acceleration 
of  the  spacecraft  due  to  solar 
radiation  pressure,  in  earth 
radii/minute  squared. 

The  perturbative  acceleration 
of  the  spacecraft  due  to 
atmospheric  drag,  in  earth 
radii  /minute  squared. 

The  3x3  coefficient  matrix 

which  pre-multiplies  the 

9  (x,  y,  z)  ...  . .  , 

— j — -  position  partial 

derivatives  with  respect  to 
each  CAT1  variable. 

The  3x3  coefficient  matrix 
which  premultiplies  the 

-  velocity  partial 

derivatives  with  respect  to 
each  CAT1  variable. 

Not  used. 


The  following  COMMON  block  is  used  to  transmit  data  between 
routines  of  the  partials  and  least  squares  segments. 

Name  Equivalence  Dimension  Description 


PCMR  1 


1 
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The  computed  slant  range  of 
the  spacecraft  relative  to  the 
current  station,  in  PS  TAT. 


Name  Equivalence  Dimension 

PCS  A  2  1 


PCS ALF  3 


.1 


PCSE 


4 


1 


PDELFG  5 


4 


9  1 

POBCNT  10  1 

PRS  UBI  1 1  1 

PSNA  12  1 

PSN ALF  1 3  1 

PSNE  14  1 

PS  TAT  15  12 


Description 

Cos  A,  where  A  is  the  com¬ 
puted  azimuth  of  vehicle  rela¬ 
tive  to  the  current  station. 

Cos  a  ,  where  a  is  the  right 
ascension  of  the  current 
station. 

Cos  E,  where  E  is  the  eleva¬ 
tion  of  the  spacecraft  relative 
to  the  current  station. 

Deletion  flags  for  residuals 
in  PRESDT  (1-4).  These 
flags  are  in  BCD.  The  code 
is 


bbbbbb 

Kbbbbb 

Sbbbbb 

*bbbbb 

Nbbbbb 


data  accepted 
deleted  by  K*RMS 
deleted  by  0  sigma 
deleted  by 
residual  # 
deleted  by 
N*SIGMA 


Not  used. 


The  number  of  data  points  * 
currently  accepted  in  the  fit. 

Auxiliary  quantity  =  the 
product  of  PV  and  PCMR 

Sin  A,  where  A  is  the  com¬ 
puted  azimuth  of  the  vehicle 
relative  to  the  current  station. 


Sin  a,  where  a  is  the  right 
ascension  of  the  station. 

Sin  E,  where  E  is  the  com¬ 
puted  elevation  of  the  space¬ 
craft  relative  to  the  current 
station. 

The  working  sensor  table. 

The  station  elements  cor¬ 
respond  to  the  current  station 
whose  observations  are 
found  in  PUBS . 
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Name 

Equivalence 

Dimension 

Description 

PSTAT  (1)  ... 

station  latitude  (radians)  0 

PSTAT  (2)  .  .  . 

station  longitude  (radians)  A 

PSTAT  (3)  .  .  . 

station  altitude  (earth  radii)  h 

PSTAT  (4)  .  .  . 

COS  0 

PSTAT  (5)  .  .  . 

sin  0 

PSTAT  (6)  .  .  . 

Ogo  +  * 

PSTAT  (7)  .  .  . 

W* 

PSTAT  (8)  .  .  . 

PSTAT  (9)  ... 

category  2  variable  code  word 

PSTAT  (10-12)  .  .  . 

not  used 

PUDTI 

27 

3 

The  topocentric  direction 
cosines  of  the  velocity  vector 
in  earth  fixed  equatorial 
system. 

PUI 

30 

3 

The  topocentric  direction 
cosines  of  the  vehicle  position 
in  the  equatorial  system. 

PV 

33 

1 

Auxiliary  quantity  equal  to 

RSS  of  PV  (1)  and  PV  (2). 

PVI 

34 

3 

The  topocentric  direction 
cosines  of  the  vehicle  position 
in  the  horizon  system. 

PWDTI 

37 

3 

Geocentric  earth  fixed  velocity 
of  the  vehicle  in  a  station 

meridian  equatorial  system. 

PWI 

40 

3 

Geocentric  position  of  the 
vehicle  in  a  station  meridian 
equatorial  system. 

PRESDT 

43 

12 

The  residual  vector: 

PRESDT  (1)  .  . 

.  Residual  in 

range 

PRESDT  (2)  .  . 

.  Residual  in 

azimuth 

PRESDT  (3)  .  . 

.  Residual  in 

elevation 
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Name 


Equivalence 


Dimension 


Description 


PRESDT  (4)  .  .  .  Residual  in  range  rate 

PRESDT  (5)  .  .  .  Component  of  R,  A,  E  residuals  in  uprange 
direction. 

PRESDT  (6)^.  .  .  Component  of  R,  A,  E  residual  in  downrange 
direction. 

PRESDT  (7)  .  .  .  Component  of  R,  A,  E  residual  in  crossrange 
direction. 

PRESDT  (8)  .  .  .  Magnitude  of  uprange,  downrange,  and 
crossrange  residual  vector. 

PRESDT  (9)  .  .  •  Angle  between  computed  and  observed 
orbit  planes. 

PRESDT  (10-12)  ...  Not  used. 


IRCNT 

55 

4 

Residual  number  of  range, 
azimuth,  elevation  and  range 
rate  respectively. 

TSUS 

59 

1 

Current  RMS  of  the  residual 
data. 

IPFRST 

60 

1 

First  time  in  flag  for  RADR. 
If  a-priori  A^Ais  present, 
IPFRST  is  initially  -1,  if  no 
a  priori,  IPFRST  is  0;  after 
the  initial  entrance  to  RADR, 
IPFRST  is  1. 

PWPP 

61 

24 

A  3x8  array  describing  the 
partial  derivatives  of  PWI 
with  respect  to  each  of  the 
CAT1  variables. 

PWDTPP 

85 

24 

A  3x8  array  describing  the 

partial  derivative  of  PWDTI 
with  respect  to  each  of  the 
CAT1  variables. 


109-125  Not  used. 
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2.5.6  COMMON/INPP/DTMP  (300),  DATA  (1000) 

The  following  COMMON  block  is  used  to  transmit  data  between 
routines  of  the  input  processor  link. 


Name  Equivalence  Dimension 


Description 


DTMP  1  50 


DTMP  51  250 


DATA  Storage 

CJ  1  12 

CJNM  13  6,6 


2  cells  per  station,  to  identify 
the  CAT2  code  words. 

IDp  code  word  ID^,  code 
word  2*  ’  •  • 


The  code  word  is  of  the  form 
I*10+J 

I  =  starting  location  of 
IVSTR  (NPRCD)  code 
words  for  this  station. 

J  =  Final  location  in  IVSTR 
(NPRCD) 

A  10x25  block  derived  from 
the  sensor  card  data.  10 
cells  for  each  station,  up  to 
25  stations  maximum. 


i  .  .  . 

Station  ID 

i+1  .  . . 

Range  bias  (Earth 
radii) 

i+2  ... 

Azimuth  bias 
(Radians ) 

i+3  .  .  . 

Elevation  bias 
(Radians ) 

i+4  .  .  . 

Range  rate  bias 
(Earth  radii/minute) 

i+5  .  .  . 

Time  bias  (minutes) 

i+6  .  .  . 

a  Range  (Earth  radii) 

i+7  .  .  . 

a  Azimuth  (radians) 

i+8  .  .  . 

a  Elevation  (radians) 

i+9  .  .  . 

a  Range  Rate  (Earth 
radii  /minute ) 

Values  of  the  zonal  harmonic 
coefficients  for  the  Earth, 

Jl*  J 2’  ’  ’  '  ’  J 1  2 ’ 

A  two-dimensional  array  with 
the  sectorial  harmonic  coef¬ 
ficients  along  the  main 
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Name 


Equivalence 


Dimension 


Description 


diagonal  Jjj,  J22,  ***•  ^66’ 

the  tesseral  harmonics  up  to 
order  6  below  the  main  diag - 
anal  J2j,  Jjj,  **'»  J55  and 

the  corresponding  tesseral 
phase  angle  A2j,  A  31.  •••, 

A  65  above  the  diagonal  in 

degrees . 


CJNM  (1,1) 

a 

11 

1  =  1,  •  • 

• ,  6 

CJNM  (I,  J) 

►-I 

II 

I.  J  =  1, 

2,  •  •  • ,  6  I  >  J 

CJNM  (I,  J) 

/-< 

II 

I.  J  =  1, 

2,  •  •  • ,  6  I  <  J 

CLAMNN 

49 

6 

The  sectorial  phase  angles 

^11*  *  22*  *  ‘  66  in 
degrees . 

ZONAL 

55 

12 

Flags  to  indicate  which  zonal 
harmonics  Jj,  J  £,  •  •  •  ,  J  \2 

are  to  be  included  in  the 
earth's  potential  field  model. 
If  ZONAL  (I)  is  0,  ignore  Jt, 
if  ZONAL  (I)  t  0,  include  Jp 

SECT 

67 

6 

Flags  to  indicate  which  sec- 

torial  harmonics  Jjj,  J22, 

•  •  •  ,  are  to  be  included 

in  the  earths  potential  field 
model.  A  flag  is  non- zero  to 
indicate  inclusion  of  the 
harmonic. 

TESS  73  15  Code  words  to  indicate  the 

tesseral  harmonics  to  be  in¬ 
cluded  in  the  earths  potential 
field  model.  If  Jjj  is  desired, 
TESS  (i)  =  10*I+J.  The  first 
zero  entry  indicates  the  end  of 
the  list. 

STVEC  88  6  The  input  STVEC  parameters 

.  .  .  either  x,  y,  z,  x,  y,  z  or 
a  6  8  ARV  or  X  6  8  ARV  in 
kilometers,  seconds  and 
degrees . 
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Name 

DRAG 

DRAGCD 

DRAGA 

DRAGM 

RADPR 

RPGAM 

RPA 

RPM 

SMAT 

CAT1 


Equivalence 

94 

95 

96 


97 


98 


99 

100 


101 


102 


312 


319 


Dimension 

1 

1 


Description 

CdA 

The  input  value  of -  in 

r  m 

meters  squared/kilogram. 
The  drag  coefficient  C^. 


1 


1 


1 


1 

1 


1 


210 


7 


The  effective  area  of  the 
spacecraft  for  use  in  the  drag 
calculation,  in  meters 
squared. 

The  mass  of  the  spacecraft 
for  use  in  the  drag  calcula¬ 
tion,  in  kilograms. 

The  radiation  pressure  coef¬ 
ficient  ^  A 
yA 

-  ,  meters  squared 

m  n 

per  kilogram. 

y  for  use  in  radiation  pres¬ 
sure  calculation. 

Effective  area  of  spacecraft 
for  use  in  radiation  pressure 
calculation,  meters  squared. 

Effective  mass  of  the  space¬ 
craft  for  use  in  radiation 
pressure  calculation, 
kilograms . 

Storage  for  up  to  a  20x20 
upper  triangular  by  rows 
a-priori  A^A.  normal  matrix 
in  a  6  ftARV  coordinates. 

Units  of  degrees,  kilometers, 
and  seconds . 

Flags,  non-zero  to  indicate 
which  of  a,  6,  8 ,  A,  R,  V, 

CdA 

-  are  to  be  included  as 

m 

the  solution  vector.  These 
are  the  category  1  variables. 

Not  used. 
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Name 


Dimension 


Description 


CAT2 


BISES 


DELET 

BNDS 


TPOS 


TDEL2 


Equivalence 


320  225  Storage  for  the  category  2 

variable  identification.  9 
cells  per  station,  up  to  25 
stations.  Storage  for  each 
station  is: 


i  .  .  .  Station  ID 

i+2  .  .  .  Flag  for  Range  bias  (non-zero  to  include) 

i+3  ...  Flag  for  Azimuth  bias  (non- zero  to  include) 

i+4  .  .  .  Flag  for  Elevation  bias  (non- zero  to  include) 

i+5  .  .  .  Flag  for  Range  Rate  bias  (non-zero  to  include) 

i+6  .  .  .  Flag  for  Station  latitude  bias  (non -zero  to  include) 

i+7  .  .  .  Flag  for  Station  longitude  bias  (non-zero  to  include) 

i+8  .  .  .  Flag  for  Station  height  bias  (non-zero  to  include) 


545 


595 

695 


745 


50 


100 

50 


10,  3,  2 


Storage  for  the  bias  estimates 
of  the  indicated  category  2 
variables  in  the  order  of  the 
CAT2  array.  Up  to  50  biases 
may  be  specified,  in  units  of 
kilometers,  degrees,  seconds. 

Table  of  residual  deletion 
numbers.  Up  to  50  pairs. 

The  bounds  for  each  param¬ 
eter  in  the  solution  vector  in 
the  order  of  the  CAT1,  CAT2 
arrays,  in  kilometers,  de¬ 
grees,  seconds  and  meters 
squared/kilograms . 

A  triply  subscripted  array 
for  the  Cartesian  position  of 
the  moon  and  sun  on  10  con¬ 
secutive  days.  Subscript  one 
identifies  the  day,  subscript 
two,  the  coordinates  x,  y,  z, 
and  subscript  three  the  body, 

1  for  moon,  2  for  sun.  Co¬ 
ordinates  are  in  earth  radii 
relative  to  the  mean  equator 
and  equinox  of  1950. 


805 


10,  3,  2  The  second  central  difference 

for  TPOS. 
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Name 

Equivalence 

Dimension 

Description 

TDEL4 

865 

10,  3,  2 

The  fourth  central  difference 
for  TPOS. 

UPMAT 

925 

28 

Storage  for  up  to  a  7x7  lower 
triangular  covariance  matrix 
stored  by  rows  in  O',  6,  /?, 

A'  R’  V’  CdA 

-  in  units  of 

m 

degrees,  kilometers,  seconds 
and  meters  squared/kilogram, 

NDTMP 

953 

1 

A  pointer  used  in  subroutines 
SENRD  and  LODSEN  to  indi¬ 
cate  the  next  entry  in  DTMP 
for  sensor  bias  and  O  data. 

954-1000 

Not  used. 

2.  5.  7  COMMON//BLK  1  (60) 

Name 

Equivalence 

Dimension 

Description 

CBE 

i 

i 

Semi-minor  axis  of  the  earth, 
earth  radii. 

CELLIP 

2 

i 

Ellipticity  of  the  earth. 

CMU 

3 

i 

GM  of  earth,  earth  radii 
cubed/minute  squared. 

C  WE 

4 

i 

Earth's  rotational  rate, 
radians  / minute . 

CGMR 

5 

2 

GM  ratio  of  Moon /Earth  and 
Sun/Earth. 

CFTER 

7 

1 

Feet  per  earth  radius. 

CFTNM 

8 

1 

Feet  per  nautical  mile. 

CKMER 

9 

1 

Kilometers  per  earth  radius. 

CKMFT 

10 

1 

Kilometers  per  foot. 

11 

Not  used. 

CMTER 

12 

1 

Meters  per  earth  radius. 
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Name 


Equivalence 


CNMER 

13 

CBAYMN 

14 

CDEG 

26 

CJDSO 

27 

CPI 

28 

C2PI 

29 

COMLST 

30 

CFTEPS 

31 

CHMAX 

32 

CHMIN 

33 

CYMIN 

34 

CER 

35 

CRASHE 

36 

CRASHM 

37 

38-50 

KOUT 

51 

KIN 

52 

ITRJTP 

53 

MT 

54 

58-60 

Dimension 


1 

12 

1 

1 

1 

1 

1 


Desc  ription 

Nautical  miles  per  earth 
radius 

Days  per  month,  non-leap 
year. 

Degrees  per  radian 

Julian  Date  of  January  1, 
1950 

tt  radians 
2tt  radians 
Dimension  of  VSTR. 


1  Tolerance  of  convergence 

criterion  in  subroutine  FIT. 

1  Maximum  integration  step 

size,  minutes. 

1  Minimum  integration  step 

size,  minutes. 

1  Test  parameter  for  sub¬ 

routine  TRAJ. 


1  Error  bound  for  doubling 

and  halving  the  integration 
step  size. 

1  Division  criterion  in  TRAJ 

to  avoid  overflow  in  impact 
test. 

1  Altitude  at  which  test  for 

earth  impact  is  initiated,  in 
earth  radii. 

Not  used. 

1  Output  tape  number. 

1  Input  tape  number. 

1  Trajectory  tape  number. 

1  Observation  tape  number. 

Not  used. 
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2.5.8  COMMON//BLK  2  (30) 


Name 

Equivalence 

Dimension 

Description 

NPR 

i 

1 

Size  of  solution  vector. 

NDPR 

2 

1 

Number  of  CAT1  variables  in 
solution  vector. 

NICPR 

3 

1 

Number  of  a  6  /4\RV  in 
solution  vector. 

NAROW 

4 

1 

Starting  location  in  VSTR  of 
row  of  A  matrix  and 
residual. 

NATA 

5 

1 

Starting  location  in  VSTR  of 
accymented  normal  matrix 
stored: 

upper  triangular  by 
rows . 


NBONS  6 

NDPAR1  7 

NDPAR2  8 

NDPAR3  9 

NDPAR4  10 

NIDLED  1 1 

NIDENT  12 


1  Starting  location  in  VSTR  of 

bounds  vector. 

1  Starting  location  in  VSTR  of 

nominal  bounds  correction 
vector. 

1  Starting  location  in  VSTR  of 

correction  vector  based  on 
bounds/ 2. 

1  Starting  location  in  VSTR  of 

correction  vector  based  on 
bounds/4. 

1  Starting  location  in  VSTR  of 

correction  vector  based  on 
bounds/ 8. 

1  Starting  location  in  VSTR  of 

residual  delete  list. 

1  Number  of  residual  delete 

entries . 
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Name 

Equivalence 

Dimension 

Des  c  ription 

NIDP 

13 

i 

Starting  location  in  VSTR  of 
CATI  variable  indentif ication 

list. 

NPAR 

14 

i 

Starting  location  in  VSTR  of 
current  estimate  of  solution 
variable  s . 

NPBIS  15 


NPRCD  16 


NR  17 

NRTMP  18 

NSCALE  19 

NSSTB  20 


1  Starting  location  in  VSTR  of 

current  estimate  of  biases  in 
solution  vector. 

1  Starting  location  in  VSTR  of 

CAT  2  variable  identification 
code  words.  Each  word  is 
of  the  form  T*  1 00+P  where 
T  is  the  bias  type  and  P  is 
the  place  in  the  solution 
vector.  The  bias  type  are: 


i .  . 

.  Range 

2  .  . 

.  Azimuth 

3  .  . 

.  Elevation 

4  .  . 

.  Range  rate 

7  .  . 

.  Time 

8  .  . 

.  Station  latitude 

9  .  . 

.  Station  longitude 

10  .  . 

.  Station  height. 

Starting 

location  in  variable 

storage 

of  covariance  matrix 

from  LEGS  2,  stored  lower 
triangular  by  rows. 

1  Starting  location  in  VSTR  of 

temporary  storage  large 
enough  to  hold  a  lower 
triangular  NPR  x  NPR  matrix. 

1  Starting  location  in  VSTR  of 

solution  scale  vector. 

1  Starting  location  in  VSTR  of 

sensor  mean  and  RMS  table. 

13  cells  per  sensor  as 
follows: 


2-53 


Name 


Dimension 


Description 


NS  TAT 


NUBS 


i  .  .  .  Station  ID 

i+1  ...  ER  residuals 
2 

i+2  ...  ER  residuals 

i+3  .  .  .  NAj^*l OOOV+NRj^  where  NA  =  #  of  accepted  points 

NR  =  #  of  rejected  points 

i+4  ...  E  A  residual 
2 

i+5  .  .  .  EA  residual 


i+10  .  .  .  ER  residuals 
i+11  .  .  .  ER2  residuals 
i  +  1 2  ...  NA^IOOOO+NR^ 

21  1 

22  1 


Starting  location  in  VSTR  of 
master  sensor  table.  (See 
SENIN) 

Starting  location  in  VSTR  of 
observation  storage .  Ob¬ 
servation  fill  VSTR  from 
VSTR  (NUBS)  —  VSTR 
(COMLST). 


23-30 


Not  used. 


2.  5.  9  COMMON/  /BLK  3  (100) 

Name  Equivalence  Dimension 

TEPOCH  1  1 


TJDATE 


1 


TALFAG 


DYEAR 

DMNTH 

DDAY 


4 

5 

6 


Description 


Time  of  epoch,  minutes  from 
0  hours. 

Julian  Date  at  0  hours  day  of 
epoch. 

Right  ascension  of  Greenwich 
at  0  hours  day  of  epoch, 
(radians ) 

Epoch  year  minus  1900. 
Epoch  month  number. 

Epoch  day  number. 
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Name 

Equivalence 

Dimension 

Description 

DHOUR 

7 

i 

Epoch  hour. 

DMIN 

8 

i 

Epoch  minute. 

DSEC 

9 

i 

Epoch  seconds  and  fraction. 

DTYPE 

10 

i 

Type  of  input  initial  conditions. 

11-12 

Not  used 

DBASE 

13 

i 

Days  from  January  1,  1950 
to  epoch  day. 

PREFLG 

14 

10 

Column  31-40  of  the  JDC. 

DCF  LG 

24 

10 

Column  41-50  of  the  JDC. 

PSTFLG 

34 

10 

Column  51-60  of  the  JDC. 

TNOMX 

44 

6 

Nominal  initial  trajectory 
conditions  in  Cartesian  co¬ 
ordinate,  in  kilometers  and 
seconds. 

TNOMP 

50 

6 

Nominal  initial  trajectory 
conditions  in  polar  coordinate, 
in  kilometers,  degrees  and 
seconds. 

CDAD2M 

56 

1 

CdA 

in  feet  squared/ slug. 

SGAMAM 

57 

1 

-  ^ A  (Earth  radii  cubed/minute 
m 

squared) 

CKRMS 

58 

1 

K  for  K*RMS  residual  dele¬ 
tion  criterion. 

CNSIG 

59 

1 

N  for  N*SIGMA  residual 
deletion  criterion. 

NITER 

60 

1 

Maximum  allowable  iteration 
in  curve  fit. 

TSTEP 

61 

1 

Initial  integration  step  size 
(minutes). 
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Name 

Equivalence 

Dimension 

Description 

DTMAX 

62 

1 

Maximum  allowable  time  in¬ 
terval  for  an  observation,  in 
days  since  epoch. 

SKIP 

63 

1 

Zero  if  evaluation  of 
variational  equation  to  be 
npredictorn  only. 

BFLAGS 

64 

2 

Flags  to  indicate  inclusion 
of  sun  and/or  moon  as  per¬ 
turbation  force,  non-zero  to 
include . 

DEL.TT 

66 

17 

8  sets  of  trajectory  print 
times  Atj ,  Tj,  At^,  T2,  *  *  • 

trajectory  will  be  printed 
every  At,  minutes  until  Tj 
minutes  from  epoch. 

NDAYS 

83 

1 

Number  of  day  of  ephemeris 
data  for  sun  and  moon  (an 
integer  from  0  to  10) 

DVEHN 

84 

3 

Columns  4-17  of  the  JDC. 
(BCD) 

DHEAD 

87 

2 

Columns  18-29  of  the  JDC. 
(BCD) 

NMBER 

89 

1 

Number  of  observation  cards. 

2.  5.  10 

COMMON//BL.K  4  (400)  Working  Storage 

Name 

Equivalence 

Dimension 

Description 

TG 

i 

i 

Integration  time  to  go.  .  . 
minutes  from  0  hours  day 
of  epoch. 

TRAJX 

2 

57 

Integration  coordinates  good 

at  time  TG: 


dx 

dp2’  *“ 


dx  5  z 

a  p8’ .  *>8 
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Name 

Equivalence  Dimension 

Desc  ription 

The  pj,  p£,  •  •  •  Pg  are  the 

CAT  1  variables.  Coordinates 
are  stored  in  earth  radii  and 
minutes. 

TLIST 

59 

192 

Integration  list  (See  TRAJ 
subroutine) 

TALT 

251 

1 

Vehicle  altitude  (feet) 

TRHOA 

252 

1 

Density  of  air  at  TALT 
(Slugs /cubic  foot) 

XN 

253 

6 

Cartesian  position  of  moon 
and  sun  relative  to  the  earth 
for  current  integration  day 
(Earth  radii) 

TICRT 

265 

6 

Initial  trajectory  conditions 
in  x,  y,  z,  x,  y#  z,  in  earth 
radii  and  minutes. 

IPOL 

271 

6 

Initial  trajectory  conditions 
in  a,  S  9  (3,  A,  R,  V  in  earth 
radii,  minutes,  and  radians. 

PUBS 

277 

7 

Observation  vector  = 

PUBS  (1)  ... 

Station  ID 

PUBS  (2)  ... 

Time  of  observation 
epoch  day) 

(minutes  from  0  hours  of 

PUBS  (3)  .  .  . 

Range  (earth  radii) 

PUBS  (4)  .  .  . 

Azimuth  (radians) 

PUBS  (5)  ... 

Elevation  (radians) 

PUBS  (6)  .  .  . 

Range  rate  (earth  radii /minute) 

PUBS  (7)  .  .  . 

Not  used. 

PSIG 

284 

4 

cr  ’s  for  current  PUBS  list: 
cr  R,  crA,  c  E,  cr  R,  inearth 
radii,  radians,  and  minutes. 

XBSQ 

288 

1 

Multiplier  for  bounds  to  in- 

sure  that  solution  from  LEGS  2 
is  affected  by 


XBSQ* BOUNDS 

2 
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Name  Equivalence  Dimension  Description 

COUNT  289  1  Line  counter  for  residuals 

print. 

IFTEX  290  1  Exit  flag  from  FIT: 

IFTEX  =  1  .  .  .  Solution  has  converged 

IFTEX  =  2  .  .  .  maximum  iteration  exceeded  and  converging 
IFTEX  =  3  .  .  .  Failed  K  *  BOUNDS /8 
IFTEX  =  4  .  .  .  Normal  return 

IFTEX  =  5  .  .  .  Maximum  iteration  exceeded  and  diverging. 


TSUSP 

291 

1 

TS  USB 

292 

1 

TUBSEF 

293 

1 

KONTRL 

297 

1 

NDTCT 

298 

1 

NITCT 

299 

1 

300 

TCRASH 

301 

1 

TZ 

302 

1 

PLSTSN 

303 

1 

TMBIS 

304 

1 

Predicted  RMS. 

Best  RMS. 

Non-zero  when  "end  of  file” 
encountered  or  observation 
tape . 

Flag  to  indicate  use  of 
T  R J  GEN  .  . . 

KONTRL  =  1  .  .  .  Curve  fit 

KONTRL  =  2  .  .  .  Trajectory 
print  and 
update 

Current  entry  in  DELTT  ar¬ 
ray  being  processed. 

Current  iteration  number. 

Not  used. 

Non-zero  if  earth  impact 
occurred. 

Non-zero  if  solution  affected 
by  bounds. 

Station  ID  for  previous  obser¬ 
vation. 

Observation  time  bias 
(minutes ). 
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Name 

Equivalence 

Dimension 

Description 

N1 

305 

i 

Degree  of  highest  zonal 
harmonic  in  earth's  potential 
model. 

N2 

306 

i 

Degree  of  highest  sectorial 
harmonic  in  earth's  potential 
model. 

N3 

307 

i 

Degree  of  highest  tesseral 
harmonic  in  earth's  potential 
model . 

FJ 

308 

12 

FJ(I)  is  0  if  Jt  not  in  zonal 
model,  and  FJ(I)  =  Jj  is  Jj 
in  zonal  model. 

C 

320 

6,  6 

Lower  triangular  portion 
contains  : 

C(N,  M)  =  cos 

where 

are  sectorial  and 

NM 

tesseral  harmonics  and 
^NM  are  corresponding 

phase  angles. 

S 

356 

6,  6 

Lower  triangular  portion 
contain : 

S(N,M)  =  JNM  sin  (MXnm) 

PRMS 

392 

4 

The  RMS  from  the  previous 

iteration  of  the  range  residuals, 
azimuth,  elevation,  and  range 
rate . 
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Name 


Dimension 


Description 


IFIT  396  1  An  interger  to  indicate  which 

corrections  to  apply  to  the 
solution  vector: 

IFIT  =  1  .  .  .  use  solution  for  bounds 

IFIT  =  2  .  .  .  use  solution  for  bounds /2. 

IFIT  =  3  .  .  .  use  solution  for  bounds/4. 

IFIT  =  4  .  .  .  use  solution  for  bounds /8. 


r, F LAG  396  1  A  flag  set  non-zero  when  a 

non-impact  iteration  follows 
an  impact  iteration.  When 
impact  occurs,  all  conver¬ 
gence  tests  are  suppressed 
until  one  iteration  following 
a  non-impact  iteration. 

A  flag  set  non -zero  when 
impact  occurs.  This  flag 
is  set  back  to  0  following  the 
next  non-impact  iteration. 
All  convergence  tests  in  FIT 
are  suppressed  until  2  non¬ 
impact  iterations  occur  fol¬ 
lowing  an  impact  iteration. 
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3.  DAP  — DATA  AVERAGING  PROCESSOR 


A  complete  mathematical  and  engineering  description  of  DAP  is  given 
in  "The  Millstone  Hill  Radar  Real  Time  Data  Processor,"  Revision  1,  by 
M.  Deckett,  5452  - 6005 -MU-00 1 ,  TRW  Systems,  29  September  1965. 

This  section  describes  the  input/ output  of  DAP  and  pertinent  subroutines. 

Due  to  the  time  constraints,  DAP  was  written  so  that  all  needed 
values  were  transmitted  through  COMMON  or  made  available  internally 
via  the  DATA  statement.  The  use  of  subroutines  was  kept  to  an  absolute 
minimum.  Additionally,  a  table  look-up  was  used  instead  of  a  standard 
cosine  subroutine  due  to  the  required  cosine  accuracy.  (See  Appendix  B 
reference. ) 

DAP,  out  of  hardware  necessity,  simulates  five  real  time  program 
requirements: 

1.  Sense  Switch  5  simulates  the  mode  switch. 

a.  SS  5  off  (up)  is  equivalent  to  the  Normal  mode. 

b.  SS  5  on  (down)  is  equivalent  to  the  Sparse  mode, 

2.  Sense  Switch  6  simulates  the  Data  Processor  Switch 

a.  SS  6  off  (up)  is  equivalent  to  Data  Processor 
Switch  on. 

b.  SS  6  on  (down)  is  equivalent  to  Data  Processor 
Switch  off. 

3.  Since  the  "Sample  Ready  Circuit"  is  not  defined,  there 
exists  an  area  (prior  to  statement  number  75)  to  insert 
logic  to  "Open  Sample  Ready  Circuit". 

4.  The  logic  to  "Correct  Monopulse"  is  already  built  into 
DAP;  however,  it  is  bypassed  since  DELTA  A  and 
DELTA  E  are  not  available  (Ref.,  p.  31). 

5.  The  logic  to  rearrange  data  is  to  be  placed  at  internal 
statement  number  four.  (Ref.,  p.  19.) 

Two  additional  DAP  characteristics  are  worthy  of  mention. 

First,  although  DAP  has  not  been  subroutinized,  there  are  definite  logic 
blocks.  The  blocks  are  clearly  labeled  in  the  coding  and  coincide  by  name 


3-1 


and  function  with  the  " subroutine s  11  as  described  in  the  reference.  Second, 
to  facilitate  assimilation,  variable  names  in  DAP  were  chosen  to  match  those 
appearing  in  the  reference. 

3.1  INPUTS 

The  required  inputs  to  DAP  are  easily  categorized  as  follows: 

1.  Values  from  real  time  radar,  all  integers. 


Description 

Symbolic 

Location 

Units 

a. 

Hit  flag 

ITTEMP  (1) 

0  or  1 

b. 

Range  word 

ITTEMP  (2) 

.  5  p.  sec 

c. 

Azimuth  word 

ITTEMP  (3) 

.-15 

Z  revs 

d. 

Elevation  word 

ITTEMP  (4) 

2  — 1 5 

2  revs 

e. 

Doppler  word 

ITTEMP  (5) 

64  cps  or  0 

f. 

Coarse  time, 
the  23  most 
significant  bits 
of  a  29-bit  time 
word 

ITTEMP  (6) 

256  x  2^  p.  sec 

g* 

Fine  time 
the  23  least 
significant  bits 
of  a  29-bit  time 
word 

ITTEMP  (7) 

256  p.  sec 

h. 

Rearrange  flag 

ITTEMP  (24) 

=  0;  record  data 

as  presented 

^0;  rearrange 
data  before 
recording 
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2.  Values  from  the  preprocessor  (PREMOD) 


Description 

Symbolic 

Location 

Format  or 

Initial  Value 

a. 

Target  ID 

DAPRE  (1) 

5  decimal  digits 

(integer) 

b. 

GMT  of 
tracking 
start  day 

DAPRE  (2) 

6  decimal  digits 

(integer) 

c. 

72-character 
header  label 

DAPRE  (3) 
thru 

DAPRE  (14) 

BCD 

The  following  are  flags  initialized  in  the 

preprocessor : 

Initial 


Name 

Location 

If  zero 

If  non-zero 

value 

a. 

Mode 

DAPRE 

(15) 

normal 

spar  se 

i 

b. 

Stop 

DAPRE 

(16) 

processor  switch 
off 

processor  switch 
on 

i 

c . 

Record 

DAPRE 

(17) 

do  not  record 
raw  data 

record  raw  data 

F  rom 

JDC 

card 

d. 

B  reak 

DAPRE 

(18) 

do  not  force  end 
smoothing 

force  end  of 
smoothing 

e . 

Epsilon 

DAPRE 

(19) 

initialize  base 
epoch  word 

do  not  initialize 
base  epoch  word 

0 

f. 

Alpha 

DAPRE 

(20) 

initialize  base 
azimuth  word 

do  not  initialize 
base  azimuth 
word 

0 

g- 

T 

DAPRE 

(21) 

new  smoothing 
period 

continuation  of 
existing  smooth¬ 
ing  period 

0 

h. 

Mode 

Change 

Enable 

DAPRE 

(22) 

remain  in 
normal  mode 

switch  to 
sparse  mode 

0 

i. 

Output 

DAPRE 

(23) 

record  output 

do  not  record 
output 

0 

j- 

DTZ 

DAPRE 

(24) 

adjust  time 

do  not  adjust 

k. 

DC 

DAPRE 

(25) 

adjust  time 

do  not  adjust 

1. 

First 

DAPRE 

(26) 

initialize  epoch 
update  word 

do  not  initialize 
epoch  update  word 

0 

m. 

Header 

DAPRE 

(40) 

do  not  write 
header 

write  header 

1 

DC  is  set  non-zero  when  MHESPOD  is  entered 
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The  following  are  critical  constants  and  biases: 


Description 

Symbolic 

Location 

Value  if 

Not  Input 

Units 

a. 

Range  editor  critical 
deviation 

DAPRE  (28) 

16500. 

meters 

b. 

Range  rate  editor 
critical  deviation 

DAPRE  (29) 

9. 

m/  sec 

c. 

Smoothing  time 

DAPRE  (30) 

5.25 

seconds 

d. 

Time  bias 

DAPRE  (31) 

0 

seconds 

e . 

Range  bias 

DAPRE  (32) 

0 

meters 

f. 

Range  rate  bias 

DAPRE  (33) 

0 

m/  sec 

g- 

Elevation  bias 

DAPRE  (34) 

0 

degrees 

h. 

Azimuth  bias 

DAPRE  (35) 

0 

degrees 

3.  Values  from  MCOM  (COMMON) 

Description 

Symbolic  Location 

Units 

Range  sigma 

SIGMA  (1) 

earth 

-radii 

Azimuth  sigma 

SIGMA  (2) 

r  adi  ans 

Elevation  sigma 

SIGMA  (3) 

radians 

MHESPOD  Epoch  Time 

TEPOCH 

minutes 

4.  Values  from  DAPNTP 


De  scription 

Symbolic  Location 

Units 

Ephemeris 

interpolation 

flag 

DAPSTR  (1) 

0  =  interpolation  allowed 

1  =  interpolation  not  allowed 

Time 

DAPSTR  (2) 

Minute  from  midnite  of 
start  day 

Radius 

DAPSTR  (3) 

Earth  radii 

Azimuth 

DAPSTR  (4) 

Radians 

Elevation 

DAPSTR  (5) 

Radians 

dR/dT 

DAPSTR  (6) 

Earth  radii/minute 

dA/dT 

DAPSTR  (7) 

Radians/ minute 

dE/dT 

DAPSTR  (8) 

Radians /minute 
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3.  Z  OUTPUTS 


1*  Save  tape  for  later  processing. 

a.  Header  record  consisting  of: 

1.  Word  1  — Integer  count  of  the  words  in  the  record, 
excluding  the  first  word 

Z.  Word  Z  — Program  identifying  word  11  DAP" 

3.  Word  3  — Target  identifier 

4.  Word  4  — GMT  of  day  of  tracking  commencement 

5.  Words  5 — 16 

— 7 Z-character  label  chosen  by  the  user 

b.  Raw  data  record  in  standard  format 

1.  Word  1  — Integer  count  of  words  in  record  excluding 
the  first  word 

Z.  Word  Z  — Target  identifier 

3.  Word  3  — GMT  of  day  of  tracking  commencement 

4.  Words  4— 10 

— Radar  data  as  shown  under  INPUTS  1, 
a  through  g. 

c.  Raw  data  in  rearranged  format 

To  be  accomplished  at  a  later  date 

d.  Averaged  data 

1.  Word  1  — Integer  count  of  the  words  in  the  record, 
excluding  the  first  word 

Z.  Word  Z  — Target  identifier 

3.  Word  3  — GMT  of  day  of  tracking  commencement 

4.  Word  4  — Time  of  averaged  data  in  minutes 
0  hr  day  shown  by  word  1 

5.  Word  5  — Range  in  earth  radii 

6.  Word  6  — Range  rate  in  earth  radii/min 

7.  Word  7  — Elevation  in  radians 

8.  Word  8  — Azimuth  in  radians 

9.  Word  9  — Normalized  variance  of  sample 

e.  Termination  record 

1.  Word  1  —  1 

Z.  Word  Z  — 0 


3-5 


2.  Standard  output  tape 

a.  Average  data — see  words  4  through  9  Section  l.d. 

b.  Administrative  messages 

1.  "NOEPHM"  indicates  the  request  ephemeris  time 
was  not  on  the  ephemeris  tape. 

2.  "DAPBOF  FULL _ MESPOD  WILL  NOT  RECEIVE 

ANY  MORE  DATA"  indicates  the  alloted  storage  in 
MESPOD  for  average  data  points  is  filled  and  no 
further  points  will  be  stored  for  MESPOD. 

3.  Averaged  Data  to  MESPOD 

DAP  will  place  up  to  60  sets  of  averaged  data  into  a 
designated  storage  area  in  COMMON.  The  data  is 
in  the  order  and  form  of  Section  l.d,  words  4  through  9. 

3.3  SUBROUTINES 

DAP  uses  three  subroutines,  as  follows: 

1.  DAPNTP  —  For  a  detailed  description  see  Section  5.3. 

This  routine  is  used  to  interpolate  the  core  ephemeris. 
Communication  is  through  DAPSTR;  see  INPUTS,  Section  4. 

USAGE:  CALL  DAPNTP 

2.  SSWITCH  — The  IBM  FORTRAN  IV  routine  to  check  the 
status  of  a  given  sense  switch. 

USAGE:  CALL  SSWTCH  (X,  Y) 

X  =  sense  switch  to  be  interrogated 

Y  =  cell  set  to;  1  if  X  down 

2  if  X  up 

3.  OVERFL — The  IBM  FORTRAN  IV  routine  to  determine 
if  floating  point  overflow  exists. 

USAGE:  CALL  OVERFL  (X) 

X  =  Cell  set  to;  1  if  overflow 

2  if  no  overflow 

In  either  case,  the  machine  is  left  in  a  no  overflow 
condition. 
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4.  LAP  — LOOK  ANGLE  PROCESSOR 


The  LAP  module  provides  steering  signals  to  the  radar  servo,  and 
obtains  these  by  interpolating  the  core  ephemeris,  a  radar  observables 
table  (for  Millstone  Hill  sensor)  given  as  60  equally  spaced  arguments. 
When  LAP  is  initiated,  it  first  reads  the  computer  real  time  clock.  This 
argument  time  is  corrected  by  subtracting  a  constant  time  bias  which  is 
provided  as  an  input  constant,  but  which  in  later  versions  of  the  real  time 
system  may  be  calculated  from  the  real  data. 

Because  the  first  derivatives  are  available  for  four  of  the  output 
values,  (R  A  E  R),  a  modified  Everett’s  formula  is  used.  The  resulting 
interpolation  is  effectively  a  three-point  (quadratic)  form  for  R  A  E  and  a 
four-point  (cubic)  form  for  R  R  A  E.  The  resulting  accuracy  of  the  inter¬ 
polation  is  related  to  the  spacing  of  the  arguments  of  the  core  ephemeris, 
the  ’’curvature"  of  the  given  sighting  ephemeris,  and  the  characteristics 
of  the  interpolating  formulas  used. 

4.  1  LAP  CONTROL 

LAP  is  used  only  when  a  sequence  of  conditions  and  events  permits. 
The  Test  Director  must  request  that  the  radar  servo  be  switched  to  LAP 
mode,  and  that  the  9300  be  enabled  by  command  to  accept  the  interrupt. 
This  is,  of  course,  predicated  upon  the  presence  of  the  activated  real 
time  system  in  the  9300.  Further,  LAP  does  not  operate  when  MHESPOD, 
or  any  other  program,  is  modifying  the  core  ephemeris.  The  LAP  con¬ 
trol  logic  is  diagramed  in  Figure  4-1. 

4.  2  LAP  SUBROUTINE  DESCRIPTION 

Subroutine  LAP  assumes  a  core  ephemeris,  a  60  equally  spaced 
time  history  of  Millstone  Hill  radar  observables,  has  been  generated  and 
interpolates  the  observables  using  a  modified  Everett's  formula.  The 
observables  are  corrected  for  biases;  in  addition,  the  elevation  is  correc¬ 
ted  for  servo-lag  and  propagation  error;  the  azimuth  is  corrected  for 
se  rvo  -lag. 

The  output  is  returned  as  an  8-element  vector  as  shown  in  Item  4. 
Figure  4-2  is  a  simplified  flow  chart  of  the  subroutine. 


4.1 


Figure  4-1.  LAP  Control  Logic 
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Figure  4-2.  LAP  Subroutine  Flow  Diagram 

4.3 


i 


The  following  is  a  description  of  the  inputs  and  output  of  SUB¬ 
ROUTINE  LAP.  There  are  no  variables  in  the  calling  sequence.  Every- 
ting  is  done  through  the  following  named  common  blocks. 


/CE/CE  (484) 

CE  (1)  =  At 

CE  (2)  =  t  +  At 
a 

CE  (3)  =  tp  -  1  At 
CE  (4)  =  DCF  LG 


At  =  time  interval  of  ephemeris 
t  -  initial  value  of  time  of  ephemeris 


a 


tp  =  final  value  of  time  of  ephemeris 


The  arrangement  of  the  rest  of  CE  is  a  function  of  CE  (4)  or  the 
DCFLG 


1.  o 

=  CE  (4) 

=  0.  0 

t 

=  CE  (5),  CE  (13),  .  , 

=  t 

R  (ER/MIN2) 

=  CE  (6),  CE  (14),  .  . 

.  .  =  R  (ER/MIN) 

R  (ER) 

=  CE  (7),  CE  (15),  .  . 

.  .  =  R  (ER) 

A  (DEG) 

=  CE  (8),  CE  (16),  .  . 

.  .  =  A  (DEG) 

E  (DEG) 

=  CE  (9),  CE  (17),  . 

.  .  =  E  (DEG) 

R  (ER/MIN) 

=  CE  (10),  CE  (18), 

.  .  .  =  9R  (ER/MIN) 

A  (DEG/MIN) 

=  CE  (11),  CE  (19), 

.  .  .  =  9A  (DEG/MIN) 

E  (DEG/MIN) 

=  CE  (12),  CE  (20), 

.  .  .  =  8E  (DEG/MIN) 

Only  the  dimensions  of  R  and  R  are  critical  as  they  are  not 

returned  in  their  table  dimension,  in 

the  output  vector. 

/DAPRE/DAPRE  (40) 

DAPRE  (31)  =  time  bias 

TBI 

DAPRE  (32)  = 

range  bias 

RBI 

DAPRE  (33)  = 

velocity  bias 

VBI 

DAPRE  (34)  = 

elevation  bias 

EBI 

DAPRE  (35)  = 

azimuth  bias 

ABI 

DAPRE  (36)  = 

azimuth  servo-lag 

CSUBA 

DAPRE  (37)  = 

elevation  servo-lag 

CSUBE 

/BLK1/EL  (9) 

/BLK2/DELEF 

=  elevation 

(9)  =  elevation  propagation  error 
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4.  / LAPSTR/NCEFG,  TD,  RDOT,  R,  A,  E,  RDOTP,  RP 


NCEFG 

— 

o, 

Interpolation  was  possible 

NCEFG 

No  interpolation,  time  was  outside  the  range  of 
the  ephemeris 

TD 

— 

Time  at  which  R,  R,  A,  E,  etc.  are  to  be 
evaluated.  Must  be  stored  by  calling  program. 

RDOT 

= 

R  in  km/sec 

R 

= 

Range  in  km 

A 

= 

Azimuth  in  ephemeris  units 

E 

= 

Elevation  in  ephemeris  units 

RDOTP 

= 

R  in  Doppler 

RP 

= 

Range  in  milliseconds 

5.  PROGRAM  FUNCTIONAL  DESCRIPTION 


5.  1  SUBROUTINE  LOGIC 

The  diagrams  on  the  following  pages  illustrate  the  subroutine  struc¬ 
ture  of  the  MHESPOD  and  NRTPOD  programs.  A  functional  diagram  of 
PREMOD  is  given  in  Section  1.1.  Figure  5-1  illustrates  the  main  flow  of 
MHESPOD.  The  subroutines  shown  in  this  figure  are  principally  drivers 
for  other  routines.  The  subroutines  which  are  called  by  the  main  drivers 
are  listed  in  Figure  5-2,  the  MHESPOD  subroutine  hierarchy*  A  lower 
heirarchy  is  indicated  by  positioning  down  and  to  the  right.  For  example, 
subroutine  DAUX  calls  subroutine  RPRESS  (radiation  pressure),  which  in 
turn  calls  EVERT  (for  interpolation).  These  two  diagrams  are  similar  to 
Figure  1-2,  which  is  an  analyst’s  description  of  the  MHESPOD  program. 

Figure  5-3  is  a  diagram  of  the  NRTPOD  overlay  structure  in  terms 
of  the  principal  options  of  the  program.  Since  the  program  is  restricted  in 
size,  not  all  routines  can  fit  into  core  at  any  one  time.  The  NRTPOD  over¬ 
lay  structure  is  detailed  by  subroutines  in  Figure  5-4.  From  this  figure, 
it  can  be  seen  which  subroutines  are  in  core  as  a  function  of  the  particular 
option  of  the  program  (as  defined  in  Figure  5-3).  It  should  be  noted  that 
the  routines  which  are  common  to  all  program  functions,  such  as  PIMOD 
(modulates  an  angle  between  0  and  2tt),  occupy  the  top  of  the  overlay 


structure. 


Figure  5-1.  General  Subroutine  Logic  of  MHESPOD  Program 
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Figure  5-2.  MHESPOD  Subroutine  Hierarchy 
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Figure  5-2.  MHES POD  Subroutine  Hierarchy  (Continued) 
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Figure  5-3.  NRTPOD  Overlay 
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NRTPOD  OVERLAY  STRUCTURE 


5.  2  GLOSSARY  OF  SUBROUTINES 


This  section  lists  the  subroutines  which  are  used  by  the  programs, 
i.e.,  PREMOD,  MHESPOD,  and  NRTPOD.  If  a  particular  subroutine  or 
operation  is  unknown  in  name  to  the  reader,  the  functional  description  can 
be  helpful  in  identifying  the  appropriate  subroutine(s).  The  program  code 
identifies  the  program(s)  in  which  a  particular  subroutine  is  used;  the 
code  letters  are: 

P:  PREMOD 
M:  MHESPOD 
N:  NRTPOD 

Some  of  the  subroutines  which  are  in  the  glossary  have  not  been 
included  in  the  subroutine  descriptions  (Section  5.  3)  since  they  are  essen¬ 
tially  as  described  in  ESPOD  documentation  (ESPOD  Mathematical  and 
Subroutine  Description,  June  1964).  These  particular  subroutines  are 
identified  by  an  asterisk.  If  the  same  subroutine  is  significantly  different 
in  the  two  or  more  referenced  programs,  separate  descriptions  .ire  giver.. 


Subroutine 

Program 

Functional  Description 

APPLY 

M 

Applies  corrections  to  solution  vector  prints 
iteration  summary  on-line,  and  writes  iniovrna- 
tion  on  ADT  tape 

APPLY 

N 

Applies  corrections  to  solution  vector  and  prints 
iteration  summary 

ASIN* 

P,  M,  N 

Arcsine  routine 

ASSIGN 

N 

Establishes  storage  assignments  lor  avrav*  in 
variable  storage 

ATM59 

P.  M,  N 

Computes  density  of  a  statie  atmosphere  tAKIH' 
1959  Model) 

BCDOBS 

N 

Reads  an  observation  card 

BODY 

P,  M,  N 

Computes  acceleration  duo  to  sun  and  moon 

BOUNDS 

N* 

Scales  bounds  with  given  scale  factor 

CDCD 

P 

Modulates  the  input  time 

CEAZ 

M 

Smooths  the  azimuth  arguments  in  the  eore 
ephemeris 
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Subroutine 

Program 

Functional  Description 

CEGEN 

P,  M 

Generates  one  point  of  the  core  ephemeris 

CEPHM 

M 

Generates  a  60-point  core  ephemeris 

CLTIME 

N 

Computes  Gregorian  time 

COMSET 

P 

Prepares  MESCOM  for  BCT  Tape 

CORMAT 

N 

Computes  correlation  matrix 

CTOM 

P 

Converts  a  Cartesian  state  vector  to  mean 
elements 

CTOP* 

P,  N 

Converts  a  Cartesian  state  vector  to  polar 
spherical  coordinates  (ADBARV) 

DAPOB 

P 

Reads  DAP  observations  from  the  ADT  Tape 
and  writes  them  on  the  BCT  Tape 

DAPRT 

P 

Prints  the  observations  from  the  DAP  Tape 

DAPWRT 

M 

Processes  DAP  observations  and  writes  them  on 
the  ADT  Tape 

DAUX 

P,  M,  N 

Driver  for  evaluating  acceleration  in  integration 

DCITER 

N 

Driver  for  the  computation  of  the  normal  matrix 
and  one  iteration  of  the  DC 

DLSTV 

P 

Computes  the  differentials  for  the  MTOC  and 
CTOM  conversions 

DOBPRT 

P 

Prints  the  DAP  observations  from  the  ADT  Tape 

DOT 

P,  M,  N 

Computes  scalar  product 

DPRLM 

P,  N 

Data  initializing  (partial) 

DPROS 

N 

Driver  for  loading  observation  and  sensor  cards 

DRAG 

P,  M,  N 

Computes  drag  perturbations 

DRDP 

M,  N 

Computes  partial  of  observations  w.  r.t. 
category  1  variables 

EVERT 

P,  M,  N 

Interpolates  position  of  sun  and  moon 

FIT 

M,  N 

Logic  control  for  DC  options 

GENCE 

P 

Generates  the  core  ephemeris 
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Subroutine 

Program 

Functional  Description 

GPERT 

P,  M,  N 

Computes  acceleration  due  to  Earth's  potential 

HUMAH 

P,  N 

T  T  - 1 

Converts  a  vector,  A  A  matrix,  or  (A  A) 

from  machine  units  to  human  units  or  vice-versa 

INPUT 

N 

Main  driver  for  input  processor 

I  PR  NT 

P,  N 

Prints  header  page 

JACHIA 

P,  M,  N 

Computes  air  density  using  Lockheed- Jacchia 
atmospheric  model 

JCBINV 

P 

Computes  inverse  of  variational  equations 
matrix  using  Jacobi  inverse  technique 

JCS 

P,  N 

Sets  up  vector  of  zonal  coefficients  J£  •  •  •  Jj£ 
and  two  matrices  of  C's  and  S's  for  GPERT 

JTOC 

P 

Converts  Julian  date  to  calendar  date 

LEGS  1 

M.  N 

T  T 

Forms  A  A  and  A  B  given  A  and  B 

LEGS2 

M,  N 

Least  squares  package  solves  AX  =  B 

LINES 

N 

Ejects  page  and  prints  heading  at  top  of  page 

LODOBS 

P,  N 

Main  control  for  observation  card  processor 

LODSEN 

P,  N 

Main  control  for  sensor  card  processor 

MABAT 

P,  N 

T 

Multiplies  ABA  where  B  is  a  lower  triangular 
matrix 

MATCH 

P,  N 

Compares  two  floating  point  variables 

MATPT 

P,  N 

Prints  lower  triangular  matrix 

MOVEVS 

N 

Moves  observation  set  from  variable  to  working 
storage 

MTOC 

P 

Converts  mean  elements  to  Cartesian  coordinates 

MULT 

P,  N 

Multiplies  a  3  x  3  matrix  by  a  succession  of 

1x3  vectors 

NR T POD 

N 

Main  control  for  NRTPOD 

OBSIN 

N 

Moves  observations  from  buffer  to  permanent 
storage 
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Subroutine 

Program 

Functional  Description 

OBSRD 

p 

Reads  observation  card 

OBSSRT 

N 

Sorts  observations  to  time  sequence 

OUTER 

P,  M,  N 

Computes  product  of  column  and  row  vector 

PAGE1 

M 

Accumulates  residuals  and  outputs  them  on  the 
ADT  Tape 

PAGE  1 

N 

Acummulates  residuals  and  prints 

PAR OUT 

N 

Computes  residuals  for  residuals  print 

PARSE T 

M,N 

Initializes  station  data  for  partial  derivative 
package 

PASTOR 

N 

Monitors  residual  rejection 

PIMOD 

P,  M,  N 

Obtains  positive  argument  of  an  angle  in  radians 
between  0  and  Ztt 

PLTEL 

N 

Converts  polar  elements  to  indeterminancy  free 
and  orbital  elements 

POTENT 

P,  M,  N 

Driver  for  geopotential  model 

PPLPC 

N 

Computes  partial  of  ADBARV  w.  r.t.  Cartesian 

PRAUPD 

N 

Updates  a  covariance  matrix  to  a  specified  time 

PR  CONS 

N 

Prints  program  constants 

PRECES 

P,  N 

Processes  lunar-solar  ephemerides  from  mean 
of  1950.  0  to  true  of  epoch  coordinates 

PRELIM 

P,  M,  N 

Makes  preliminary  calculations  in  partials 
package 

PREMOD 

P 

Main  control  subroutine  of  PREMOD 

PR  TAD  T 

P 

Formats  and  prints  the  ADT  Tape 

PRSSTB* 

N 

Computes  and  prints  mean,  RMS,  and  number 
for  residuals  by  sensor  and  type 

PR TATA 

N 

T 

Stores  and  prints  the  A  A  matrix 

PRUDRV 

N 

Main  driver  for  trajectory  print  and  update 
package 
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Subroutine 

Program 

Functional  Description 

PTOC* 

P,  N 

Converts  polar  coordinates  to  Cartesian 
coordinates 

PUPB* 

N 

Computes  partial  of  observation  w.  r.  t.  category  2 
variables;  i.e.,  t^,  0^, 

RADR 

M,  N 

Computes  residuals;  driver  for  partials  package 

RADSQ 

P,  M,  N 

Computes  magnitude  and  (magnitude)^  of  a  3-D 
vector 

RDCOM 

P 

Reads/ MESCOM/record  from  ADT  Tape 

RDDATA 

P 

Reads  NAMELIST  input  cards,  ephemeris  cards, 
and  mean  elements  cards 

RDDATA 

N 

Reads  NAMELIST  input  cards  and  ephemeris 
cards 

REJECT 

N 

Monitors  the  acceptance  or  rejection  of  an 
observation 

RMAX 

N 

Compares  residual  quantities  with  table  of 
maximum  values 

rotru* 

P,  N 

Rotates  a  set  of  vectors  from  mean  of  1950.  0  to 
true  of  date  coordinates 

RPRESS 

P,  M,  N 

Computes  perturbative  acceleration  due  to 
radiation  pressure 

SDELET 

N 

Moves  deletion  list  from  buffer  to  permanent 
storage 

SELECT 

M,  N 

Selects  next  observation  time 

SENIN 

P,  N 

Moves  sensor  data  from  buffer  to  permanent 
storage 

SENRD 

P,  N 

Reads  three  types  of  sensor  cards 

SETCON 

P,  N 

Sets  constants  for  program 

SETIC 

P,  M,  N 

Initializes  integration  list 

SETSTR 

P,  N 

Converts  drag  and  radiation  pressure  parameters 
from  external  to  internal  units 

SETTAB 

N 

Sets  tables  concerning  solution  vector  in  variable 
storage 
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Subroutine 

Program 

Functional  Description 

SSTB* 

N 

Accumulates  sum,  sum  of  squares,  and  number 
of  residuals  by  sensor  and  data  type 

STSMAT* 

N 

Converts  upper  triangular  S  matrix  from  human 
units  to  machine  units 

SUPMAT* 

N 

Moves  input  update  matrix  from  buffer  to 
permanent  storage 

TGDJD* 

N 

Converts  Julian  to  calendar  date  from  integration 
time  and  prints 

TINIT* 

P,  N 

Sets  up  initial  time,  computes 

TIME* 

P,  N 

Converts  Y,  M,  D,  H,  M,  S  to  Julian  date: 
days  plus  fraction 

TPRLM 

N 

Sets  up  data  for  integration 

ajc 

TPRNT 

N 

Prints  trajectory  print 

TRAJ 

P,  M,  N 

Integrates  the  equations  of  motion  and  variational 
equations  of  motion  to  a  specified  time 

TRISE 

P 

Searches  for  rise 

TRJGEN 

N 

Main  driver  for  trajectory  package 

TRJGET 

N 

Reads  trajectory  record  from  trajectory  tape 
from  DC  package 

TRJPRO 

N 

Main  driver  for  DC,  trajectory,  and  update 
interfaces 

TRJTAP 

N 

Writes  trajectory  tape 

TSET 

P 

Establishes  final  time  of  core  ephemeris 

UBSGET 

M,  N 

Gets  next  observation  time  from  variable 
storage 

UPDATE 

P 

Driver  for  covariance  matrix  update  logic 

UVECT 

P,  N 

Unitizes  a  3 -dimensional  vector 

VAREQ 

P,  M,  N 

Computes  second  derivatives  of  variational 
equation 

VPERT 

P,  M,  N 

Initializes  variational  equations 
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Subroutine 

Program 

Functional  Description 

WEOFT 

N 

Writes  an  ending  sentinel  block  on  observation 
tape 

WRTCOM 

P,  N 

Writes  COMMON  block  on  observation  tape 

WRTOBS 

N 

Generates  observation  tape 

XCROSS* 

N 

Performs  the  cross  product  of  two  3 -dimensional 
vectors 

YRAE* 

N 

Computes  Y  vector  when  range,  azimuth,  and 
elevation  are  given 

APPLY 


APPLY 


SUBROUTINE  IDENTIFICATION 

A.  Title 
APPLY 

B.  Segment 
MHESP0D 

C.  Called  by  subroutine 
FIT 

FUNCTION 


Function  is  to  apply  DC  solution  vector,  print  iteration  summary 
on-line,  and  write  information  on  ADT  Tape. 

USAGE 

A.  Calling  sequence 
Call  APPLY 

B.  Input 


COMMON 

NDPAR1 

Starting  location  of  solution  vector  in 
variable  storage 

NDPR 

Total  number  of  Category  1  variables  to 
solve  for 

NITCT 

Iteration  counter 

NPAR 

Starting  location  of  parameter  list  in 
variable  storage 

P0BCNT 

Total  number  of  observables 

KADT 

Logical  unit  for  ADT  Tape 

NAT  A 

T 

Location  of  A  A  in  VSTR 

NSCA  LE 

Starting  location  of  the  list  of  conversion 
factors 

NR 

T  - 1 

Starting  location  of  where  the  (A  A)  is 

stored 
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APPLY 


TICRT 

Nominal  Cartesian  coordinates 

TEMP 

Temporary  storage 

TN0MX 

Initial  Cartesian  coordinates 

TSUS 

Current  total  S<#S 

TSUSP 

Predicted  S<3S  for  next  iteration 

VSTR 

Variable  storage 

CKMER 

Km/  earth  radii 

NDAP0B 

Number  of  DAP  observations 

Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
SORTF 

B.  Program 
EQUATIONS 


RMSAt 
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APPLY 


APPLY 


where  N  is  the  number  of  measurements  in  the  At  fit 


RMS^  predicted  = 
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APPLY 


APPLY 


SUBROUTINE  IDENTIFICATION 

A.  Title 
APPLY 

B.  Segment 

NRTPOD  partials  least  square 

C.  Called  by  subroutine 
FIT 

FUNCTION 

At  the  end  of  each  curve -fit  iteration  APPLY  adds  the  correction  vec¬ 
tor  to  the  current  values  of  the  differential  correction  parameters.  The 
iterative  summary  is  then  printed. 


USAGE 


A.  Calling  sequence 
Call  APPLY 


B.  Input 

1.  COMMON 

CDAD2M 

NBDNS 

NDPAR1 

NDPR 

NIC  PR 

NIDP 

NITCT 

NPAR 

NPBIS 


Ci)A/2m 

Starting  location  of  bounds  vector  in  variable 
storage 

Starting  location  of  solution  vector  in 
variable  storage 

Total  number  of  category  1  variables  to 
solve  for 

Total  number  of  spherical  coordinates  to 
solve  for 

Pointer  in  IVSTR  for  CAT!  identifiers 

Iteration  counter 

VSTR  pointer  for  parameter  list 

VSTR  pointer  for  current  CAT2  estimates 
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APPLY 


APPLY 


NPR 

Total  number  of  parameters  to  solve  for 

NPRCD 

IVSTR  pointer  for  CAT2  identifiers 

NSCALE 

VSTR  pointer  for  conversion  factors  used  to 
convert  solution  vector 

NSSTB 

VSTR  pointer  where  station  mean  and  RMS 
information  is  stored 

NSTAT 

VSTR  pointer  for  master  sensor  table 

NR 

VSTR  pointer  for  (A^A)“^ 

NRTMP 

Pointer  for  temporary  storage 

TICRT 

Nominal  Cartesian  coordinates 

TIPOL 

Nominal  spherical  coordinates 

TNOMP 

Initial  spherical  coordinates 

TNOMX 

Initial  Cartesian  coordinates 

TSUS 

Current  SOS 

TSUSB 

Best  SOS 

TSUSP 

Predicted  SOS  for  next  iteration 

TZ 

Indicates  if  solution  was  affected  by  bounds 

VSTR 

Variable  storage 

CDEG 

degrees /radian 

CKMER 

kilometer /earth  radii 

IOUT 

Peripheral  output  tape  number 

Calling  seque 

nee 

IFIT 

c  1  apply  solution  using  nominal  bounds 

=  2  apply  solution  using  bounds /2 
=  3  apply  solution  using  bounds /4 
=  4  apply  solution  using  bounds /8 


C .  Output 

1. 

COMMON 

2. 

Calling  sequence 

3. 

Iteration  summary 
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APPLY 


SUBROUTINES  USED 

A.  Library 
.  FCNV. 

.  FFIL. 

.  FPRN. 

.  FVIO. 

.  FWRD. 
SQRT 

B.  Program 
HUMAH 
MATPT 
PR TAT A 
PTOC 
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ASSIGN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ASSIGN 

B.  Segment 

NR T POD  -  INPUT  PROCESSOR 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

The  function  is  to  establish  storage  assignments  for  the  arrays  to  be 
located  in  variable  storage  (VSTR).  This  routine  also  establishes  NPR, 
NDPR,  and  NIC  PR. 

USAGE 

A.  Calling  sequence 
Call  ASSIGN 

B.  Input 

1.  COMMON 

/INPP/  DATA  (1000) 

2.  Calling  sequence 

C .  Output 

1.  COMMON 


NPR 

NDPR 


Total  number  of  all  parameters  to  solve  for 
Number  of  differential  and  initial  parameters 
to  solve  for  (Category  1) 

Number  of  initial  condition  parameters  to 
solve  for 

Starting  location  where  one  row  of  augmented 
matrix  (A,  B)  is  stored 


NIC  PR 


NAROW 
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ASSIGN 


NATA 

NBDNS 

NDPAR1 

NDPAR2 

NDPAR3 

NDPAR4 

NIDLED 

NIDENT 

NIDP 

NPAR 

NPBIS 

NPRCD 

NR 

NRTMP 

NSCALE 


NSTAT 

VSTR 


T 

Starting  location  of  where  the  triangular  A  A 
is  stored 

Starting  location  for  the  bounds  used  by 
LEGS 

Starting  locations  where  the  4  sets  of  solu¬ 
tion  vectors  will  be  stored 

Starting  location  of  where  the  observation 
deletion  table  begins 

Number  of  entries  in  the  NIDLED  list 
Identifier  for  table  indicating  CAT  1  type 
variables  to  be  solved  for 
Identifies  the  starting  location  for  the 
parameter  list 

Identifies  table  for  current  estimates  of 
CAT  2  variables 

Identifies  table  for  definition  of  CAT  2 
variables  to  be  solved  for 

Starting  location  of  where  the  inverse  A^A 
is  stored  (in  triangular  form) 

Identifies  the  starting  location  of  temporary 
storage  for  special  handling  of  the  R  matrix 
Location  of  the  list  of  conversion  factors 
which  convert  all  solution  vectors  and  asso¬ 
ciated  matrices  from  machine  to  output  units 
and  vice  versa 

Starting  location  of  the  master  sensor  table 
Floating  point  variable  storage 


2.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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EQUATIONS 

NICPR  _  Number  of  orbital  elements  to  solve  for 


NDPR 

CAT1  variables 

NPR 

NIDP 

NPRCD 

NPBIS 

NAROW  = 

NBDNS 

NPAR 

NDPAR1  = 
NDPAR2  = 

NDPAR3  = 

NDPAR4  = 

NSCALE  = 

NIDLED  = 

NAT  A 

CAT  1  +  CAT2 

1 

NDPR  +  NIDP 

NPR  -  NDPR  +  NPRCD 

NPR  -  NDPR  +  NPBIS 

NPR  +  1  +  NAROW 

NPR  +  NBDNS 

2  *NPR  +  NPAR 

NPR  +  NDPAR1 

NPR  +  NDPAR2 

NPR  +  NDPAR3 

NPR  +  NDPAR4 

NPR  +  NSCALE 

NIDENT  +  2  +  NIDLED 

NR 

NRTMP  = 

NSTAT 

[  (NPR  +  1)  *  (NPR  +  2)] /2  +  NATA 
[(NPR  +  2)  *  (NPR  +  3)]/2  -1  +  NR 

[  (NPR  +  1)  *  NPR]  /2  +1  +  NRTMP 

FLOW  CHART 

See  EQUATIONS  for  order  of  computation. 
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ATM59 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ATM59 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutine 
J  A  CHI  A 

FUNCTION 

The  function  is  to  interpolate  from  the  atmosphere  tables  the 
density  of  the  atmosphere  at  given  altitudes,  using  the  standard  ARDC 
1959  model. 

USAGE 

A.  Calling  sequence 
Call  ATM59  (A,  B) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 
Address  of  altitude  (meters) 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

3 

Address  of  density  (slugs/ft  ) 

SUBROUTINES  USED 

A.  Library 
EXP 

B.  Program 
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EQUATIONS 


H  = 


(1) 


P  =  Pi 


<TM>b 


<Vb+LM'^ 


l+(GMo/R  Lm) 


f°r  lm  i  0 


(2) 


P  =  Pb  exP 


-GM  (H  -  HJ 
o  b 


for  Lw  =  0 
M 


where  b  refers  to  the  value  of  the  quantity  at  the  base  of  the  constant 
gradient  layer. 

Note: 

Equation  (  1 ) 

H  =  geopotential  altitude 
p  =  acceleration  of  gravity 
G  =  conversion  constant 

9.80665  where  M*  is 

2  7 T  1  meters  of  geopotential 

sec  M  or 

o  1  n 

r  =  effective  Earth  radius  at  latitude  45  32  33 

Z  =  geometric  altitude 

Equations  (2)  and  (3) 

p  =  density  obtained  from  calculation 

p  =  density  at  the  base  of  a  constant  gradient  layer 
where  these  base  values  were  obtained. t 

=  molecular- scale  temperature  at  the  base  of  a 
constant  gradient  layer,  t 


(3) 


^  R.  A.  Minzner,  K.S.  Champion,  and  H.L  Pond,  The  ARDC  Model 
Atmosphere,  1959  Air  Force  Surveys  in  Geophysics  No.  Tl? 

7)  Air  Force  Cambridge  Res.  Center,  August  1959. 
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ATM59 


=  molecular  scale  temperature  gradient 


TM  '  *TM*b 

=  ~ H"-  h: — 

b 


Mq  =  sea  level  value  of  molecular  weight 
R*  =  universal  gas  constant 
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ATM59 


ATM59 


SET  UP 
TABLE: 

TAB 

COMPUTE 

ALT 

(EQUATION  1) 

1  = 

1 

Figure  5-5.  ATM59  Flow  Diagram 


CALCULATE 

THRQA 

(EQUATION  3) 
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BCDOBS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
BCDOBS 

B.  Segment 

NRTPOD  -  INPUT  PROCESSOR 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 


To  read  one  observation  card  and  process  the  estimated  standard 
deviations  carried  on  the  observation  cards.  Additional  functions  include 
processing  of  types  1  and  2  observation  cards  (Lincoln  Laboratory  Format) 
and  detecting  the  last  observation  card  to  be  processed. 

USAGE 

A.  Calling  sequence 

Call  BCDOBS  (A,  SEOF) 

B.  Input 

1.  COMMON 

KOUT  Symbolic  output  tape  number 

KIN  Symbolic  input  tape  number 

2.  Calling  sequence 


C.  Output 

1.  COMMON 

A(  1 ) 

A(2) 

A(3) 

A(4) 


Satellite  ID  (A) 

Y  ear 

Month 

Day 
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BCDOBS 


A(5) 
A(6) 
A(7) 
A(8) 
A(9) 
A(  10) 
A(1 1) 
A(12) 
A(  13) 
A(14) 
A(  1 5) 
A(16) 


Hour 

Minutes 

Seconds 

Observation  type 
Range  -  R  (km) 

Azimuth  (deg)  positive  east  of  north 
Elevation  (deg) 

Range  derivative  R  (km/sec) 

Standard  deviation  of  Range  (km) 
Standard  deviation  of  azimuth  (deg) 
Standard  deviation  of  elevation  (deg) 
Standard  deviation  of  velocity  (km/ sec) 


2.  Calling  sequence 


SEOF 


End  of  observation  card  read  -  signals  end  of 
observation  data  =  ±1 


SEOF  =  -1  more  obs  to  be  processed 
SEOF  =  +1  no  more  obs  to  be  processed 


D.  Error /action  messages 

1.  Off  line  comment  when  program  encounters  types  1  and  2 
observation  cards: 

"PROGRAM  IGNORES  TYPES  1  AND  2  OBSERVATION  CARDS" 

2.  Action 

Program  proceeds  to  process  next  observation  card. 


(A)  Indicates  alphanumeric 


5-32 


BCDOBS 


BCDOBS 


Figure  5-6.  BCDOBS  Flow  Diagram 
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BODY 


SUBROUTINE  IDENTIFICATION 


A.  Title 
BODY 

B.  Segment 

MHESPOD 
PREMOD 
NR T POD 

C.  Called  by  subroutine 
DAUX 

FUNCTION 

The  function  is  to  compute  the  perturbative  acceleration  of  a  spacecraft 
due  to  other  bodies  in  the  solar  system  and  to  account  for  these  effects  in 
the  variational  equations. 

USAGE 

A.  Calling  sequence 
Call  BODY 

B.  Input 

1.  COMMON 


TLIST 


Current  integration  list 


BDASE 


Days  from  1950.  0  to  midnight  day  of  epoch 

3  2 

GM  of  Earth  (e.r.  /min  ) 


CMU 


CGMR 


Ratio  of  moon,  sun  GM  to  that  of  the  Earth 


FLVE 


Flag  to  skip  computation  of  variational 
equations 


BFLAGS  Flags  to  indicate  whether  the  accelerations  of 


the  moon  and  sun  are  to  be  considered  (used 
in  NR T POD  version  only) 


NDAYS 


NAMELIST  input  variable  denoting  the  number 
of  days  of  lunar-solar  ephemeris  impart. 

(used  in  NRTPOD  version  only) 


2.  Calling  sequence 
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BODY 


BODY 


C.  Output 

1.  COMMON 
TBPERT 

PMAT 

XN 


The  total  acceleration  of  the  vehicle  due  to 
all  the  desired  bodies 

Matrix  of  the  position  dependent  effects  in 
the  variational  equations  (the  body  effects 
are  added  to  this  matrix) 

Cartesian  position  of  Moon  and  Sun 


2.  Calling  sequence 

SUBROUTINES  USED 
A.  Library 


B.  Program 
EVERT 
RADSQ 
OUTER 

EQUATIONS 

The  position  of  the  Moon  and  Sun  with  respect  to  the  Earth,  x^f  y^, 
z^,  is  obtained  from  the  ephemeris  cards. 

1/2 


R  =  1 

i  | 

1  2 
x. 

1 

II 

•  •—* 

> 

X 

X 

\ 

X 

1 

If 

•  «— 1 

> 

- 

z  - 

VI 

z 

V 

z 

1 

where  x  ,  y  ,  z  is  the  position  of  the  vehicle  with  respect  to  the  earth, 
v  7  v  v  r  r 


D  /  2  ,  2  .  2 

R  .  =  x  .  +  y  .  +  z 

V 1  1  VI  7  V 1  V 1 


1/2 


u 

-  V* 

Xbodies  ~  f-.  ^i 

i=  1 


(x  -  x.)  x 

v  i  i 

R  i .  R  .^ 

VI  1 
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BODY 


BODY 


u 


^bodies 

i=l 


(yv  '  yi>  yi 

VI  1 


'bodie  s 


u 

■  -  I  -i 


i=  1 


( z  -  z  )  z . 

V  11 

- 3 -  “3 

R  .  R 
vi  l 


PMAT  = 


PM  AT  + 


u  /  3x 


£,  ^ 


vi  1 


i=l  R  .  R  . 

VI  VI  \ 


u 


3x  y 

VI  7  VI  1 


R  . 

VI 
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3x  .  z 
vi  vi 

R* 

VI 
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Figure  5-7.  BODY  Flow  Diagram 
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CDCD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CDCD 

B.  Program 
PREMOD 

C.  Called  by  subroutine 
JTOC 

FUNCTION 


To  modulate  the  Gregorian  calendar  date.  Upon  exit: 

Seconds  <  60 
Minutes  <  60 
Hours  <  24 

Days  ^  days  in  current  month 
Month  -  12 

No  provision  is  made  for  fractional  time  except  for  seconds. 
USAGE 

A.  Calling  sequence 

Call  CDCD  (YEAR,  TMNTH,  DAY,  HOUR,  TMINS,  SEC) 

B.  Input 

1.  COMMON 

CDAYMN  Days  in  each  month  (non -leap  year) 

2.  Calling  sequence 

YEAR  Year  Number 


TMNTH 

Month  Number 

0 

< 

TMNTH  i  « 

DAY 

Day  Number 

0 

< 

DAY  ^  °° 

Positive 

HOUR 

Hours 

0 

< 

HOUR  ^  ® 

integers 

TMINS 

Minute  s 

0 

< 

TMINS  <  ® 

SEC 

Seconds 

0 

< 

SEC  £  ® 

C.  Output 

1.  COMMON 
None 

2.  Calling  sequence 

TMNTH  Month  number  0  <  TMNTH  £  12 
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CDCD 


DAY  Day  number 

HOUR  Hours 

TMINS  Minutes 

SEC  Seconds 

D.  Error/ Action  Messages 
None 

SUBROUTINES  USED 

A.  Library 
None 

B.  Program 
None 


<  DAY  <  Days  in  TMNTH 

<  HOUR  <  24 
5  TMINS  <60 
£  SEC  <  60 


0 

0 

0 

0 
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CDCD 


Figure  5-8.  CDCD  Flow  Diagram 
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CEAZ 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CEAZ 

B.  Segment 
MHESPOD 

C.  Called  by  subroutine 
CEPHM 

FUNCTION 

To  eliminate  any  jumps  in  the  stored  azimuths  of  the  core  ephemeris. 
The  conventional  notation  for  azimuth  restricts  it  to  a  principal  interval 
from  0°  to  359.  999°,  resulting  in  a  jump  of  1360°  at  the  crossover.  This 
routine  eliminates  this  jump  by  adding  360°  to  the  appropriate  stored 
azimuths. 

USAGE 

A.  Calling  sequence 
Call  CEAZ 

B.  Input 

1.  Labeled  COMMON 


/CE/ 

/MESCOM/ 


Core  ephemeris  cells 
MHESPOD  COMMON  variables 


CPI 


CZPI 


2 


2.  Calling  sequence 


C.  Output 


1.  COMMON 
/CE/ 


Azimuth  core  ephemeris  cells 


2.  Calling  sequence 


D.  Error/action  messages 
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CEAZ 


SUBROUTINES  USED 

A.  Library 
ABS 

B.  Program 
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CEGEN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CEGEN 

B.  Segment 
MHESP0D 
PREM0D 

C.  Called  by  subroutine 
CEPHM 

FUNCTION 

To  generate  one  point  of  the  core  ephemeris. 

t,  R,  R,  A,  E,  9R/0t,  dA/Ot,  9E/dt,  if  running  PREMC^D; 
or:  t,  R,  R,  A,  E,  R,  A,  E,  if  running  MHESPC&D. 


USAGE 


A.  Calling  sequence 
Call  CEGEN  (A) 


B.  Input 


1.  Labeled  C0MM0N 


/CE/ 


Core  ephemeris  cells 


/MESC0M/ 


MHESP0D  C0MM0N  variables 


NDPR 


Number  of  parameters  to  solve  for 


PUDTI 


Vector  (iij,  li^,  vi^) 


PSTAT 


C  WE 


Earth's  rotational  rate 


PWI 


Vector  (Wj,  w^,  w^) 


TRAJX 


PCSALF 


PSNALF 
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CEGEN 


PUBS(2) 

PCMR 

R  =  computed  slant  range 

PYI 

Vector  (v  j , 

v2.  v3) 

PUI 

Vector  (Uj, 

V  u3> 

PWDTI 

Vector  (Wj , 

w2,  w3) 

PY 

2  2 

V1  +  v2 

TEMP 

Temporary 

storage 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

A  -  eight  variable  array  containing 

ad  a  A 

t,  R,  R,  A,  E,  ,  -q  - 1  when  executing  PREM0D 

or 

t,  R,  R,  A,  E,  R,  A,  E  when  running  MHESP0D 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
COS 
SIN 

B.  Program 
PRELIM 
ATNQ 
PIM0D 
ASIN 
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EQUATIONS 


where 


a  =  (agn  +  M  +  (t  "  tn ) 


(1) 


W, 


w. 


w. 


w, 


w. 


w. 


cos  a  sin  a  0 


-sin  a  cos  a  0 


X 


0  1 


cos  a  sin  a  0 


-sin  a  cos  a  0 


0  1 


/  2  .*  a  Z  .  2 

(cos  <t>  +  b  sin  <(>  ) 
e 


X  +a>  Y 


Y  -®e  X 


-1/2 


(2a) 


(2b) 


(3) 


(sin^  +  — y  cob^  ^*) 


-1/2 


(4) 


CD, 


earth  rotational  rate 


polar  axis  of  reference  ellipsoid 


W 


W 


(Ag  +  h)  cos 


(b  Bc  +  h)  sin 
6  □ 


(5) 

(6) 
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ql 

- 

wi  -wi 

(6a) 

q2 

= 

W2 

(6b) 

q3 

= 

w3  -  w3 

(6c) 

R 

= 

Vq> ' 

2  2 
q2  +  q3 

(7) 

U1 

— 

\ 

q/R 

(8a) 

Topocentric  direction 

U2 

= 

q2/R 

cosines  in  equatorial 

(8b) 

system 

U3 

= 

q3/R 

) 

(8c) 

—4 

u 

ui  1  + 

u2j  +  u3k 

(8d) 

K 

= 

U>1 

+  u2W2  +  u3W3 

*1 

= 

(Wi  - 

KUjJ/R 

(9a) 

• 

U2 

= 

<w2- 

Ku2)/R 

(9b) 

u3 

= 

(W3  - 

Ku3)/R 

(9c) 

S 

(Uji  + 

-4  — • 

u2j  +  u3K 

(9d) 

vi 

= 

U2 

\ 

Topocentric 

(10a) 

V2 

= 

-u^  sin  <t>  +  cos  <#> 

direction 
^  cosines  in 

(10b) 

v3 

= 

*  sftc 

u.  cos  4>  +  u0  sin 

1  3 

horizon  system 

(10c) 
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V 

= 

V  +  v2j  +  V3K 

(lOd) 

*1 

= 

<2 

(1  la) 

v2 

= 

jjt  5^C 

-iij  sin  <t>  +  xi^  cos 

(lib) 

v3 

= 

$  $ 
cos  <f>  +  sin  <#> 

(11c) 

Y 

= 

V'i**! 

(12) 

W1 

= 

-o4  W2  "  ^  COS  a  +  *  sin  Q) 

+  (y  cos  a  -  5  sin  a) 

(13a) 

W2 

= 

"oDg  W2  "  ^  cos  a  +  y  sin  a) 

+  (y  cos  a  -  x  sin  a) 

(13b) 

W3 

= 

Z 

(13c) 

«  « 

W 

= 

Wji*  +  w2r  +  w3K 

(13d) 

+  (x  cos  a  +  y  sin  a) 

(14a) 

*o 

aw2 

*o 

= 

-  (x  sin  a  -  y  cos  a) 

(14b) 

dw3 

s^T 

= 

• 

Z 

(14c) 
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The  foregoing  equations  define  the  core  ephemeris. 
been  defined  in  equations  (1)  through  (14). 


All  quantities  have 


R 

A 

E 

R 

A 

E 

R 

dR 

*o 

bA 

dto 

dE_ 

*o 


/  2,2  2 
yql  +  q2  +  q3 

(15) 

tan  1  (Vj/v^ 

(16) 

sin  *  (v3)  =  cos  *  (V) 

(17) 

— • 

u  •  W 

(18) 

72  (Vl  '  V1V2> 


v3/V 


u  •  w  +  u  •  w 


u 


awj  aw2  aw3 

1  §t“  *  u2  5T  *  u3  5t— 


1  PW2 

RV  [dt0 
RV  [ 


cos  A 


Vo 


♦  bW3  * 

sin  <t>  +  ^ -  cob  <t>  /b in  A 


awi 

Sir  cos  A  ■  at 


8in  **  -  Bin  EJ 


(19) 


(20) 

(21)  % 
(22) 


(23) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
CEPHM 

B.  Segment 
MHESPOD 

C.  Called  by  subroutine 
MHESPOD 

FUNCTION 


Generates  a  60-point  core  ephemeris  as  a  function  of  some  start  time, 
t^,  and  some  last  observation  time,  ta'. 

USAGE 

A.  Calling  sequence 
CALL  CEPHM 


B.  Input 

1.  labeled  COMMON 


/MESCOM/  MHESPOD  COMMON  variables. 


CEP1 

TNODE 

PUBS(2) 

TEMP 


=  60,  integer  which  controls  size  of  core 
ephemeris  intervals 

Time  of  core  ephemeris  termination 
Time  (min)  of  core  ephemeris  point 
Temporary  storage 


2.  Calling  sequence 


C.  Output 

1.  COMMON 

/CE/  Core  ephemeris  cells.  CE(l-4)  -  core 

ephemeris  control  cells,  CE(5-484)  - 
60  ephemeris  points. 

2.  Calling  sequence 


D.  Error/action  messages 
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CEPHM 


CEPHM 


SUBROUTINES  USED 


A. 

Library 

AINT 

B. 

Program 

SETIC 

TRAJ 

CEGEN 

CEAZ 

EQUATIONS 


*£ 

Final  time,  input  by  analyst 

t 

o 

= 

Time  of  epoch 

t 

s 

= 

Time  of  set  (-1.  5°  horizon) 

= 

Earliest  of  tr,  t  +  60,  t 
f  o  8 

t*' 

Time  of  epoch,  or,  if  post-epoch  data  present, 
time  of  last  observation 

pi 

= 

60,  integer  which  controls  the  size  of  the 
core  ephemeris  interval 

P2 

= 

60,  the  number  of  points  in  the  core 
ephemeris  (P^  4) 

P3 

= 

,  pl<'a'  -  'n 

Integer  part  of  - ^ - * - 

*2  ‘  J 
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CEPHM 


Figure  5-9-  CEPHM  Flow  Diagram 


C  C.7. 


CLTIME 


CLTIME 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CLTIME 

B.  Segment 

NR T POD  -  INPUT  PROCESSOR 

C.  Called  by  subroutine 

TTAPE  [PRINT  AND  UPDATE  LINK] 

TGDJD  [PRINT  AND  UPDATE  LINK] 

LODOBS  [INPUT  PROCESSOR  LINK] 

FUNCTION 

To  compute  the  calendar  date  referenced  to  epoch,  given  time  in 
minutes  from  epoch. 


USAGE 


A.  Calling  sequence 


Call  CLTIME  (TMIN,  TIME) 


B .  Inpu  t 


1.  COMMON 


CDAYMN 


12-cell  array  containing  the  number  of  days 
in  each  month.  (28  set  for  FEB) 

Epoch  year 
Epoch  month 
Epoch  day 
Epoch  hour 
Epoch  minutes 
Epoch  seconds 


DYEAR 

DMNTH 

DDAY 

DHOUR 

DMIN 

DSEC 


2.  Calling  sequence 


TMIN 


Time  in  minutes  referenced  to  epoch 


5.55 


CLTIME 


CLTIME 


C .  Output 

1.  COMMON 


2.  Calling  sequence 


TIME  (1) 
TIME  (2) 
TIME  (3) 
TIME  (4) 
TIME  (5) 
TIME  (6) 


YEAR 

MONTH 

DAY 

HOUR 

MINUTES 

SECONDS 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 

AINT  Floating  point  integer 

AMOD  Mod  function  routine 

B.  Program 
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CLTIME 


Figure  5-10.  CLTIME  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
COMSET 

B.  Program 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 

To  prepare  MESCOM  for  the  BCT.  The  step  size  for  MHESPOD's 
fixed  step  integration  is  established,  the  epoch  values  of  x,  y,  z,  x,  y,  z 
are  preset  into  VSTR  (NPAR),  various  cells  are  insured  0,  and  the  type 
indicator  for  STVEC  (cell  DTYPE)  is  set  to  2  to  identify  the  initial  condi¬ 
tions  as  x,  y,  z  in  case  this  MESCOM  is  placed  on  an  ADT  by  MHESPOD 
for  use  as  a  restart  in  PREMOD* 

USAGE 

A*  Calling  sequence 
Call  COMSET 

B.  Input 

1*  COMMON 

TEPOCH  Minutes  from  0  hours  to  epoch  time 

NPAR  Pointer  in  VSTR  to  the  current  value  of  x  ,  y  , 

z  ,  x  ,  y  ,  z  for  curve  fit 
o*  o'  7o  o 

TICRT  Value  ofx,y,z,x,y,z  in  earth  radii 

o*  7  o'  o'  o'  7  o'  o 

and  minutes 

2.  Calling  Sequence 
None 

C.  Output 

1.  COMMON 
NRRR 

TNULL 
TB 


Non -zero  for  fixed  step  Runge-Kutta 

If  non-zero,  the  value  of  epoch 
If  non-zero,  the  time  at  which  to  establish  the 
search  for  time  of  rise  of  current  satellite 
over  Millstone  Hill 
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TF 

DTYPE 

TSTEP 

TLIST(3) 

VSTR 

NITCT 


The  maximum  time  interval  for  the  length  of 
the  core  ephemeris  in  minutes 
Indicator  for  the  type  of  initial  conditions  (=  1 
for  a  6  P  ARV,  =  2  for  x,  yf  zf  x,  y,  zf  =3 
for  mean  elements) 

Step  size  taken  by  TRAJ  during  numerical  inte¬ 
gration,  Units  are  minutes 

Current  step  size  consistent  with  integration 
list  (TLIST)  and  difference  tables  (in  TRAJ) 
Variable  storage 

Current  iteration  number  for  curve  fit 


2.  Calling  sequence 
None 

D.  Error/Action  Messages 
None 


SUBROUTINES  USED 

A.  Library 
None 

B,  Program 
TRAJ 

SETIC 


EQUATIONS 


Integrate  equations  of  motion  and  variational 
equations 

Initialize  integration  list 


Program  sets  the  fixed  step  size  for  MHESPOD  at  twice  the  Runge- 
Kutta  step  chosen  by  TRAJ  for  the  epoch  initial  conditions.  The  step  size 
is  not  permitted  to  be  less  them  0.25  minutes. 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
CTOM 

B.  Segment 
PREMOD 

C.  Called  by  subroutines 
PRTADT 

FUNCTION 

To  convert  a  set  of  Cartesian  elements  to  oscillating  elements  and 
then  to  mean  elements,  at  epoch  time  only. 


USAGE 


A.  Calling  sequence 

Call  CTOM(TNOMX,  ADBAR,  ITER) 


B.  Input 


COMMON 


CJ2 

CMU 

CPI 

C2PI 

KOUT 


J2  Earth  Harmonic 
p  (Earth  Radii,  Minutes) 


TT 


2tt 

Output  tape  number 


2.  -  Calling  sequence 


TNOMX(l)  x' 
TNOMX(2)  y 
TNOMX(3)  z 
TNOMX(4)  x 
TNOMX(5)  y 
TNOMX(6)  i . 


■  Earth  Radii,  Minutes 


ITER 


Number  of  iterations  to  be  used  to  obtain  6's 


C.  Output 


1.  COMMON 
None 


CTOM 


CTOM 


Calling  sequence 

ADBAR(l) 

aK-Z5  (Earth  Radii) 
m 

ADBAR(2) 

e 

m 

ADBAR(3) 

*m  1 

ADBAR(4) 

m 

ADBAR(5) 

1 

U) 

m 

‘  (Radians) 

AD  BAR(6) 

M 

m 

ADBAR(7) 

(x) 

m 

(Radians  /  Minute) 

ADBAR(8) 

h 

m 

(Radians  /  Minute) 

D.  Error  Messages 

If  E  (eccentric  anomaly)  fails  to  converge  after  50  iterations 

E  FAILED  TO  CONVERGE 

THE  VALUE  OF  E  IS  ±.  XXXXXE  ±XX 

The  computation  proceeds  with  the  last  computed  value  of  E. 
SUBROUTINES  USED 

A.  Library 

ABS 

SORT 

ATNQ 

SIN 

COS 

B.  Program 

PIMOD  To  set  the  principle  value  of  an  angle  between  0 

and  2  it 

DLSTV  To  compute  the  6's  for  conversion  from  oscu¬ 

lating  to  mean  and  mean  to  osculating 

EQUATIONS 

1.  Compute  epoch  values  of 

a)  magnitude  of  radius  vector 

/  2  ,  2  2 

r0  =  vx  +  y  +  z 

b)  Angular  momentum 

h^Q  =  (yz  -  zy)^  +  (zx  -  xz)^  +  (xy  -  yx)^ 
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c)  Orbital  semi-parameter 

p  =  h  Vh* 

ro  o  ~ 

2.  Compute  osculating  orbital  elements. 

a)  Semi-major  axis 

aos  =  ro^/  [z»  -  r0  {*z  +  y2  +  iZ)] 

b)  Eccentricity 


.2  P' 


.,2 


e  =  +  \/(p/r-l)+  — —  (xx  -f  yy  4*  zz) 

os  V  °  °  pr  77 


c)  The  true  anomaly  v 


cos  v  =  (p  /r  -  l)/e 

o  xro'  o  '  os 


sm  v 


o  -  (W^**?**)'' 


os 


d)  The  orbital  inclination  and  the  longitude  of  the  ascending 
node 


yz  -  zy 


sin  i  cos  U 

os  os  r 


sin  i  cos  S2 

os  os  r 


xz  -  zx 


cos  1 


OS 


xy  -  yx 

r 


e)  The  argument  of  latitude,  u,  is  determined  from 


cos  u  =  - cos  4*  y/r  sm 

or  os  7  o  os 

o 


sin  u  =  z/(r  sin  i  ) 
o  7  '  o  os 


f)  The  argument  of  perigee 


Cl)  =  U  -  V 
OS  O  O 
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g)  The  eccentric  anomaly 


sin  E  =  [(xx  +  yy  +  zz)/u.a  1/e 

o  33  os  os 


cosE  =  (1-r/a  )/e 

o  o  os  os 


h)  The  mean  anomaly 


M  =  E - (xx  +  yy  +  zz) 

os  o  ua  33 

n  os 


Compute  the  initial  K-25  element  where  =  3/2  J^a  ^ 


a  =  a 

osK-25 


[l  -  VPo2  (l  -  3/2  sin2  ^s)  ( 1 


1/2 


-  e 


os 


Compute  the  initial  K-25  p 
l-e2  ) 

OS  / 


p  =  a 
r  o  os 


( 


K-25 

Then  iterate  on  the  following  index,  k 

A 
P 


aK-25,  =  ak 

k 


Pk  "  aK-25, 


1  -  “T"  0  -  3/2  sini2k)  ( 1  -  e2k) 
pk-i 

(>-*2k) 


1/2 


Compute  6's  using  (aK_25k,  ek,  ik,  cok,  MR) 
Compute  a^  =  a^o  -  6, 


os 


e,  =  e  -  6 
k  os  e. 


ii  =  i  -  6. 
k  os  i. 


°k  =  “os  -  6: 


“k 
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GO.  =  CO 

k  os 

M.  =  M 
k  os 


r  =  rQ#  Iterate  Kepler’s  equations  (see  MTOC)  to  find  E 
and  v  after  each  iteration.  After  the  last  iteration,  the 
mean  values  are: 


aK-25  "  aK-25. 

m  k 

e  =  e. 

m  k 

i  =  i. 
m  k 

0  =  £1 
m  k 


GO  =  GO. 

m  k 

M  =  M. 
m  k 

After  iterating  compute  the  secular  rates  of  go  and  £2 


GO 

m 


A2  ^  /.  /.  .  2  .  \ 

- 2 -  (2  "  5'2  8in  xk/ 

P  k 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
DAPNTP 

B.  Segment 
DAP 

C.  Called  by  subroutine 
DAP 

FUNCTION 

The  function  is  to  interpolate  the  core  ephemeris  at  a  giventime. 

i  ♦ 

The  interpolation  may  be  for  R,  A,  E,  R,  A,  E,  or  R,  A,  E,  3R/ 3t, 
3A/3t,  3E/3t. 

USAGE 

A.  Calling  sequence 
CALL  DAPNTP 

B.  Input 

1.  COMMON 

/CE/CE(484),  core  ephemeris 

/DAPSTR/NC EFLG,  TI,  R,  A,  E,  DR,  DA,  DE,  TI. 


The  time  to  be  interpolated,  minute  from 
epoch. 


2.  Calling  sequence 


C.  OUTPUT 

1.  COMMON 

/DAPSTR/NC EFLG,  TI,  R,  A,  E,  DR,  DA,  DE 

NCEFLG  =  0  Interpolation  occured 

=  0  Interpolation  did  not  occur 


(TI  was  outside  the  core  ephemeris 
interval) 


R 


Range 
Azimuth 
Elevation 
R  or  3R/3t 


A 


E 


DR 
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DAPNTP 


DA  A  or  9A/  3t 

DE  E  or  9E/  9t 

D.  Error/  action  messages 

SUBROUTINE  USED 


EQUATIONS 

t  =  t.  -  t  /A 
n  1  o  t 

P^  =  fractional  part  of  t 

P5  =  P4  +  1.0 

p6  =  p4-2.° 

P  =  P.  -  1 . 0 
n  4 


p4  =  _(P4  ‘  P9)/ 6.  0 


P5  =  (P5‘  P9)/2.0 

P6=  -(P6‘  P8)/2-° 
P?  =  (P?  ■  Pg)/6.0 


f  =  P .  ‘  f.  .  +  P_  •  f  +  F, 
n  4  l-l  5  i  6 


f6+l  +  P7  '  fi  +2 
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SUBROUTINE  IDENTIFICATION 

A*  Title 

DAPOB 

B.  Program 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 


This  program  reads  the  observations  prepared  by  DAP  from  the 
ADT,  reverse  sorts  them  in  time  and  writes  them  on  the  BCT  for  use  by 
MHESPOD  as  pre-epoch  data. 

USAGE 


A.  Calling  sequence 


Call  DAPOB 

B.  Input 


1.  COMMON 

TJDSAV  Value  of  Julian  date  at  0  hours  of  the  epoch  day 

from  the  current  ADT  being  processed 


KADT 
-  KOUT 
TJDATE 

KBCT 


Logical  number  of  ADT 

Logical  number  of  printed  output  device 
Value  of  Julian  date  of  0  hours  of  the  epoch  day 
for  current  BCT  being  generated 
Logical  number  of  BCT 


2.  Calling  sequence 
None 


C.  Output 


1.  COMMON 
None 

2.  Calling  sequence 
None 
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D.  Error /action  messages 

NO  OBS  ON  ADT  .  .  .  ERROR. 
SUBROUTINES  USED 


A.  Library 


.  FWRT. 

.  FEFT. 

EXIT 

.  FRLR. 

.  FVIO. 

.  FRDB. 

.  FWRD. 

.  FFIL. 

.  FPRN. 

B.  Program 

None 

EQUATIONS 

None 

COMMENTS 

.  FWRB. 

.  FBLT. 

.  FWLR, 

As  internal  storage: 

TEMP  50  cells  to  read  ADT  tape  records  into 

DBUFF  600  cells  to  hold  DAP  observations  for  reverse 
sorting 

Room  for  all  60  DAP  observation 
NBUF  Size  of  observation  record  on  BCT  (50  words,  5 

observations) 
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Figure  5-11. 


DAPOB  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A* * * * * *****  Title 

DAPRT 

B#  Program 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 

To  print  the  data  from  the  DAP  raw-averaged  observation  tape.  The 
program  assumes  a  variable  record  format  with  word  one  to  signify  the 
number  of  words  which  follow  in  the  record. 

Word  one  =  1  .  .  .  End  of  data  indicator 
=  16...  ID  record 
=  9  •  •  .  Raw  data  point  record 
=  8  .  .  .  Averaged  data  point  record 

*  any  of  the  above  indicates  an  error 


USAGE 

A*  Calling  sequence 
Call  DAPRT 

B.  Input 

1.  COMMON 

KOUT  Logical  number  of  printed  output  device 

KDAP  Logical  number  of  DAP  raw-averaged 

data  tape 

Z.  Calling  sequence 
None 

C.  Output 
None 

D.  Error/ Action  Messages 

If  word  one  of  any  record  is  not  a  1,  8,  9,  or  16  the  message: 

*****ILLEGAL  RECORD  ON  DAP  TAPE 
is  written  on  KOUT, 
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SUBROUTINES  USED 


A.  Library 

.  FVIO.  .  FFIL.  .  FCNV. 

.  FRDB.  .  FBLT. 

.  FWRD.  .  FRLR. 

B.  Program 
None 

EQUATION 

None 

COMMENTS 

BUFF  (16)  is  defined  internally  to  hold  the  assumed  largest  possible 
record  from  KDAP. 
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SUBROUTINE  IDENTIFICATION 


A.  Title 


DAPWRT 


B.  Segment 
MHESPOD 


C.  Called  by  subroutine 
MESPOD 


FUNCTION 

Processes  DAP  observations  to  a  consistent  format  and  writes  these 
observations  on  the  ADT  tape.  Each  record  written  on  the  ADT  contain 
five  observations,  each  of  which  are  written  in  the  following  10  cell 
format: 


ID,  t,  R,  A,  E,  R,  <7j^,  Oj^,  <7e> 


USAGE 


A.  Calling  sequence 


Call  DAPWRT 


B.  Input 


1.  Labeled  COMMON 


/  MESCOM/  MHESPOD 


COMMON  variables 

Variable  storage  array 

Starting  location  of  the  master 
•  ensor  table 

Sigma  list  for  current  station  and 
associated  time  and  observations 


VSTR 

NSTAT 


•SIG 


SIGMH 


/  DAPBUF/ 


Array  containing  DAP  observa¬ 
tion  appearing  in  the  following 
format:  t,  R,  A,  E,  R,  W  (weight) 


2.  Calling  sequence 
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DAPWRT 


DAPWRT 


C.  Output 

1.  C0MM0N 

/MESC0M/ 

TEMP 

2.  Calling  sequence 

D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 
SQRT 

B.  Program 


MHESP0D  C0MM0N  variables 
Array  of  temporary  storage 
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DAUX 


DAUX 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DAUX 

B.  Segment 

MHESPOD 
PREMOD 
NR T POD 

C.  Called  by  subroutine 

TRAJ 

SETIC 

FUNCTION 


The  function  is  to  compute  the  second  derivatives  in  the  equations  of 
motion  and  control  the  computation  of  the  second  derivatives  in  the  varia¬ 
tional  equations. 

USAGE 

A.  Calling  sequence 


Call  DAUX 

Input 

1 .  COMMON 

TLIST 

Numerical  integration  working  storage 

SGAMAM 

Constant  used  in  calculating  radiation 
pressure  effects,  S\A/m  (e.r.3/min2) 

CDAD2M 

Drag  parameter  CjjA/2m  (ft^/slug) 

FL.VE 

Variational  equation  control  flag,  ^  0,  com 
pute  variational  equations 

TBPERT 

Acceleration  due  to  bodies  (e.r./min^) 

TPOT 

Acceleration  due  to  aspherical  potential 

(er/min^) 

TDRAG 

Acceleration  due  to  drag  (e.r./min^) 

TRPRES 

Acceleration  due  to  radiation  pressure 
(e.  r.  /min^) 

TR 

Magnitude  of  geocentric  position  vector, 
R(e.  r.  ) 

CMU 

GM  earth  (e.  r .  ^/min^) 

NDPR 

Total  number  of  CATEGORY  I  variables  to 
solve  for 
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DAUX 


DAUX 


TR2  R2 

TR3  R3 

TR5  R5 

TR7  R7 

2.  Calling  sequence 

C.  Output 

1 .  COMMON 

TLIST  (58-60)  Numerical  integration  working  storage 
containing  the  total  acceleration 

2.  Calling  sequence 


SUBROUTINES  USED 

A.  Library 

B.  Program 
BODY 
DRAG 
POTENT 
RADSQ 
RPRESS 
VAREQ 

EQUATIONS 


The  Cowell  formulation  of  the  equations  of  motion  is  used: 

>1/2 


R 


(  2  -  2  2^ 

=  (x  +  y  +  z  J 

*-  -U  X  .  ■  •  •  •  , 

v  -  +  X,  +  X  .  +X  .  .  .  ,  +  X 


R 


+  y  +  z 

c+x  t  x.  T  ,  A 

J~  xbodies  T  xdrag  T  ^potential  T  ""“radiation  pressure 


y  =  ^  +  v 


R 


3  +  ^bodies  +  ^drag  +  ^potential  *  ^radiation  pressure 


Z  =  +  Z,  ,,  +  Z -  +  z 


R 


"bodies  drag  potential  radiation  pressure 
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DAUX 


DAUX 


where 


Xbodies 

The  perturbation  acceleration  due  to  other 
bodies  in  the  solar  system 

x  ,  = 

drag 

The  perturbation  acceleration  due  to 
atmosphere  drag 

X  .  — 

potential 

The  perturbation  acceleration  due  to  the 
potential  field  set  by  the  aspherical  earth 

Xradiation  pressure 

The  perturbation  acceleration  due  to  solar 
radiation  pressure 

The  tests  are  made  to  see  which  of  the  above  perturbation  effects  are 
to  be  included  in  the  evaluation  of  the  equations  of  motion 
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DAUX 


DAUX 


Figure  5-12.  DAUX  Flow  Diagram 
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DCITER 


DC  ITER 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DCITER 

B.  Segment 

NRTPOD  partials  -  least  square 

C.  Called  by  subroutines 
TRJPRO 

FUNCTION 


DCITER  drives  the  routines  which  compute  the  normal  matrix  from 
observations  and  the  trajectory  and  which  do  one  iteration  of  the  differen¬ 
tial  correction.  Convergence  is  monitored  in  DCITER. 

USAGE 


A.  Calling  sequence 
Call  DCITER 

B.  Input 


COMMON 

BYPASS 

IF  LAG 

SKIPC 

Flags  to  control  rewinding  of  observation  tape 

KOUT 

Peripheral  output  tape 

MT 

Observation  tape 

ITRJTP 

Intermediate  trajectory  tape 

DCFLG(IO) 

Differential  correction  flags  from  JDC  card, 
(cc  41  -  50) 

PSTFLG(IO) 

Post-processor  flags  from  JDC  card 
(cc  51  -  60) 

DTMAX 

Days  from  epoch  after  which  observations  will 
not  be  accepted  (provided  at  input) 

TEPOCH 

Time  in  minutes  from  midnight  day  of  epoch 
to  epoch 
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DCITER 


DCI1  ER 


IFTEX 

TG 


T CRASH 
TUBSEF 
PLSTSN 
PUBS  (8) 


Flag  to  indicate  convergence  or  non¬ 
convergence  conditions 

Observation  time  (minutes  from  midnight  day 
of  epoch)  at  which  the  trajectory  tape  has  been 
written 

Flag  returned  by  TRJGET  to  indicate  impact 
Flag  to  signal  end  of  observation  processing 
Current  sensor  number 
Current  observation  date 


2.  Calling  sequence 


C .  Output 

1.  COMMON 

BYPASS 

IFLAG 

SKIPC 

COUNT 

IPFRST 


See  B.  1 

Lines  counter  to  control  output  format 
First  time  flag  for  RADR 


2.  Calling  sequence 


3.  Convergence  -  no  convergence  messages 
SUBROUTINES  USED 


1.  Program 
FIT 

LINES  - 

PARSE T 

PRSSTB 

RADR 

REJECT 

TRJGET 

UBSGET 
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DCITER 


DC  ITER 


2.  Library 

.  FBLT. 

.  FFIL. 

.  FRWT. 
.  FVIO. 

.  FWLR. 
.  FWRB. 
.  FWRD. 
.  FXEM. 


DCITER 


DCITER 


w  NO 

REWIND 

OBS  TAPE 

Figure  5-13.  DCITER  Flow  Diagram 
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DLSTV 


DLSTV 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
DLSTV 

B.  Segment 
PREMOD 

C.  Called  by  subroutines 
MTOC  and  CTOM 

FUNCTION 

To  compute  the  differentials  used  to  convert  from  osculating  to  mean 
and  mean  to  osculating. 

USAGE 

A.  Calling  sequence 

Call  DLSTV  (STATE,  R,  V,  E,  DELTA) 

B.  Input 

1.  COMMON 

CJ2  J2  Earth  Harmonic 

2.  Calling  sequence 


Osculating  or 

Mean 

STATE(l) 

a 

a 

(Earth  Radii 

°K-25 

mK- 

•  25 

STATE(2) 

e 

o 

e 

m 

STATE(3) 

i 

o 

i 

m 

STATE(4) 

n 

U 

►  (Radians) 

o 

m 

STATE(5) 

CJ 

o 

0) 

m 

STATE(6) 

M 

o 

M 

m  J 

R 

Magnitude  of  radius  vector  (Earth  Radii) 

V 

T  rue  anomaly 

(Radians) 

E 

Output 

Eccentric  anomaly 

(Radians ) 

1.  COMMON 
None 
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DLSTY 


DLSTV 


2.  Calling  sequence 
DELTA(l)  6 

cl 

DELTA(2)  6e 
DELTA(3) 
DELTA(4) 
DELTA(5) 
DELTA(6) 
DELTA(7) 


6. 

£ 


OJ 


6  (w  +  M) 


D#  Error  Messages 
None 

SUBROUTINES  USED 

A*  Library 

SIN 

COS 

SORT 

B.  Program 
None 

EQUATIONS 

Equations  (2),  (5)f  and  (6)  have  been  formulated  to  preserve  numeri¬ 
cal  accuracy  when  eccentricity  is  near  zero,  and  hence  do  not  appear  as 
in  the  standard  references,  Kozai,  et  ah 

-3/2 


da 


=  ^§  [(‘-I-1*)  (!)  -('-/> 


sin^i  cos  2(v  + 


(1) 


de  = 


-  «2)  [3  (>  -  |  «”2i)  (S5  -  S3)]  +  >in  »lgs  ?'US< 
n  2  ]cos  (v  +  2w)  +  ■j  cos  (3v  +  2w)j  J 


sin 
2(1  -e“) 


(2) 
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DLSTV 


where 


S,  = 


2  1/2 

e/  1  +  (1  -  e  ) 


Sz  =  S1/(l  -  S^e) 


Or.  ^  3  Z 

3S^  4  3S^  e  +  e 


S.  =  cosE/(l  -  e  cosE) 


3S4  +  3S‘i4e  +  s4ie‘i 


Sg  +  ( 1  4  S^e)  (e  -  Ze) 


1  -  e 


di 


1  ^"21  f  ) 

—  sin  Zi  I  cosZ  (v  +  co)  +  e  cos  (v  4  Zoo)  4  ^cos  (3v  4  Zoo)  j 


(3) 


where 

P  = 


a(l  -  e  ) 
AZ 

dQ  =  — rcosi 


1  e 

(v  -  M)  -  ^  sinZ  (v  4  u>)  4  e  sin  v  -  ^  sin  (v  +  Zoo) 


-  ~r  sin  (3v  4  Zoo) 


(4) 


dw  =  — y  A(e-  1 )  +  B(e°)  +  C(e1) 
P 


where 


A(e  *)  =  YTe  sinv  4*  sin^i  {7  sin  (3v  4  Zoo)  -  18  sin  v 
-  3  sin  (v  4  Zu>)}] 

B(e°)  =  ^  [16  (v  -  M)  4  4  sinZv  -  4  sinZ(v  4  u>)  4  sin^i  {10  sin  Z(v  4  co) 


4  3  sin  (4v  4  Zoo)  -  ZO  (v  -  M)  -  6  sin  Zv}] 
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DLSTV 


DLSTV 


C(e‘)  .  £ 


[l2  (7  si 


sinv  + 


sin  3v 


j  -  24  sin  (v  +  2io)  -  8  sin  (3v  +  2co) 


.  2. 


+  sin  i  {19  sin  (3v  +  2u>)  +  3  sin  (5v  +  2co)  +  3  sin  (v  -  2co) 
+  45  sin  (v  +  2co)  -  6  (17  sinv  +  sin  3  v)}J 
A  _ — 

dM  =  — \  VI  -  [A(e_  1 )  +  B(e°)  +  C(e1)] 


where 

A(e~^)  =  [-12  sinv  +  sin^i  {18  sinv  +  3  sin  (v  +  2co) 

-  7  sin  (3v  +  2u)}] 

B(e°)  =  +  -g  [-  4  sin  2v  +  3  sin^i  {2  sin  2  v  -  sin  (4v  +  Zco) }] 

C(e*)  =  “g  [12  sinv  -  4  sin  3v  +  sin^i  {-18  sinv  +  6  sin  3v 

+  15  sin  (v  +  2co)  -  3  sin  (v  -  2u>)  +  sin  (3v  +  2u>) 

-  3  sin  (5v  +  2co)}] 


(6) 
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DOBPRT 


DOBPRT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DOBPRT 

B.  Program 
PREMOD 

C.  Called  by  subroutine 
PRTADT 

FUNCTION 

To  print  the  DAP  observations  recorded  on  the  ADT.  When  this 
routine  is  executed,  the  ADT  tape  is  assumed  positioned  at  the  first  DAP 
record. 

USAGE 

A.  Calling  sequence 
CALL  DOBPRT 

B.  Input 

1.  COMMON 


TEMP 

KADT 

NDAPOB 


Temporary  storage 

Logical  number  of  ADT  tape 

Number  of  observations  from  DAP  used  in 

curve  fit 

Logical  number  of  printed  output  device 
Kilometers  per  earth  radius 
Degrees  per  radian 


KOUT 

CKMER 

CDEG 


2.  Calling  sequence 


None 


C.  Output 


None 


D.  Error/action  messages 


All  DAP  observations  recorded  on  tape  but  not  used  in  the 
MHESPOD  curve  fit  are  printed  and  so  indicated. 
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DOBPRT 


DOBPRT 


SUBROUTINES  USED 
A  Library 


.  FBLT. 

.  FRDB.  .  FWRD. 

.  FCNV. 

.  FRLR. 

.  FFIL. 

.  FVIO. 

DOBPRT 


DOBPRT 


Figure  5-14. 


DOBPRT  Flow  Diagram 
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DOT 


DOT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DOT 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutine 
FUNCTION 

Function  is  to  compute  the  scalar  product  C  =  A  •  B  if  D  is  non-zero; 
the  routine  stores  the  angle  between  A  and  B  in  E. 

USAGE 

A.  Calling  sequence 

Call  DOT  (A,  B,  C,  D,  E) 

B.  Input 


1.  COMMON 

2.  Calling 

s  equenc  e 

a) 

A 

The  beginning  location  of  a  three-dimensional  vector 
N  =  (nj  ,  n2>  n3) 

'  b) 

B 

The  beginning  location  of  a  three-dimensional  vector 
M  =  (m  ,  ) 

c) 

D 

D  =  0,  do  not  compute  angle  between  A  and  B 

D  ^  0,  do  compute  the  angle  between  A  and  B 

Output 

1.  COMMON 

2.  Calling  sequence 

a)  C  Scalar  product 

b)  E  Angle  between  A  and  B 

D.  Error/action  messages 
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DOT 


DOT 


SUBROUTINES  USED 

A.  Library 
SQRTF 

B.  Programs 

ATNQF  Arc  tangent 

RADSQ  Compute  R  and  R  for  X,  Y ,  Z 


EQUATIONS 


C  =  njirij  +  n^m  ,  + 


E  =  cos 


I N |  |  Ml 
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DPRLM 


DPRLM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DPRLM 

B.  Program 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 

Establish  initial  state  vector  in  TNOMX,  parameters  associated  with 
the  epoch  time  and  print  the  conditions. 

USAGE 

A.  Calling  sequence 
CALL  DPRLM 

B.  Input 

1.  COMMON 
XICOND 

DTYPE 

CDEG 

2.  Calling  sequence 
None 

C.  Output 

1.  COMMON 

TNOMX  Initial  conditions  at  epoch  xQ  yQ  zQ 

xQ  yQ  ±Q  in  kilometers  and  seconds 

2.  Calling  sequence 
None 

D.  Error/action  messages 
None 


Contents  of  STVEC  from  input. 

Type  of  conditions  in  XICOND. 

(=  1  for  a  5  p  A  X  V,  =  2  for  x,  y, 
z,  x,  y,  z,  =  3  for  mean  elements) 
Degrees  per  radian 
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DPRLM 


DPRLM 


SUBROUTINES  USED 


A.  Library 

.  FVIO. 

.  FWRD. 

B.  Program 
TINIT 

IPRNT 

PTOC 

MTOC 

EQUATIONS 

None 


.  FCNV. 
.  FFIL 


Converts  time  to  integral  year, 
month,  day,  hour,  minute  and 
second,  calculates  agQ  and  epoch 
time  in  minutes  from  0  hours 
Prints  initial  conditions,  time  and 

aSo 

Converts  a6pp  ARV  to  xyzxyz 
Converts  mean  elements  to  xyzxyz 
and  updates 


COMMENTS 

The  header  message: 

TOLD 

PRELIMINARY  INITIAL  CONDITIONS  AT  or 

TNULL 

is  printed  here. 
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DPRLM 


DPRLM 


Figure  5-15.  DPRLM  Flow  Diagram 
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DPRLM 


DPRLM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DPRLM 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 


INPUT 


FUNCTION 

To  set  up  preliminary  information  for  the  input  processor  link.  This 
information  concerns  epoch  time  and  mode  of  epoch  position  and  velocity. 


USAGE 


A.  Calling  sequence 


Call  DPRLM 


B .  Input 


1.  COMMON 


CDEG 

CWE 

STVEC 

DTYPE 


Degrees/radian 

Earth's  rotational  rate  (radians /min) 
Input  initial  conditions 
Initial  conditions  type 


2.  Calling  sequence 


C .  Output 


1.  COMMON 


TALFAG 

TEPOCH 

TNOMX 

TNOMP 


a g  for  midnight  day  of  epoch 


Epoch  time,  minutes  from  midnight 


Initial  Cartesian  coordinates 
Initial  spherical  coordinates 
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DPRLM 


DPRLM 


2.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 
A.  Library 


B.  Program 
TINIT 

PIMOD 

PTOC 

CTOP 

SETSTR 

I  PR  NT 


Sets  up  initial  time,  computes  ag  and  DBASE 
(days  from  1950  to  day  of  epoch) 

Takes  principle  value  of  angle  between  0  and 

2  TT 

Converts  from  polar  coordinates  to  Cartesian 
coordinates 

Converts  Cartesian  coordinates  to  polar 
coordinates 

Sets  up  drag,  radiation  pressure,  potential, 

parameters 

Prints  header  page 
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DPR  OS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DPR  OS 

B.  Segment 

NRTPOD  Input  processor 

C.  Called  by  subroutine 
INPUT 

FUNC  TION 

To  issue  calls  on  the  sensor  and  observation  loading  routines  if 
required  by  input. 

USAGE 

A.  Calling  sequence 
CALL  DPR  OS 

B.  Input 

1.  COMMON 

PREFLG  NRTPOD  control  flags  (JDC  columns 

31-40) 

MT  Logical  unit  for  the  observation  tape 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 
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DPROS 


DPR  OS 


Figure  5-16.  DPROS  Flow  Diagram 
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DRDP 


DRDP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DRDP 

B.  Segment 

MHESPOD 

NRTPOD 

C.  Called  by  subroutine 
RADR 

FUNCTION 

th 

Function  is  to  compute  the  partial  of  the  M  type  of  observation  with 
respect  to  the  solution  vector. 

USAGE 

A.  Calling  sequence 
Call  DRDP  (M) 

B .  Input 

1.  COMMON 
NAROW 

NDPR 

PCSA 
PRSUB1 
PSNA 
PSNE 
PSTAT 
PUDTI 
PUI 

PWDTPP 
PWPP 

2.  Calling  sequence 

M  Observation  type  number  (1,  2,  3,  4,) 

C.  Output 

1.  COMMON 

VSTR  (NAROW)  -  VSTR  (NAROW  +  NDPR-1)  contains  the 
partial  derivatives  of  the  M^  type  observation  with  respect 
to  the  Category  1  variables  being  solved  for 


Starting  location  where  one  row  of  the 
augmented  matrix  (A,  B)  is  stored 
Number  of  all  differential  plus  initial 
parameters  to  solve  for  (Category  1) 

Cos  A 
R  i  =  VR 
Sin  A 
Sin  E 

Working  storage  for  sensor  information 
u  =  (ui,  u2,  u3) 

(ui.  u2,  u3) 

aw/aPi 

aw/aPi 
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DR  DP 


DRDP 


Z.  Calling  sequence 


SUBROUTINES  USED 


A.  Library 


B.  Program 


EQUATIONS 


Range  (type  1  observation) 


3R  awl  .  .  9w 

9p.  U1  3p.  u2  3p.  u3  3p. 


3  p.  =»  x,  y,  z,  x, 


Azimuth  (type  Z  observation) 


9A  _  1 

9p.  =  R 


3w„ 


9p. 


cos  A  - 


3w 


1 


3w  - 


-  sin  4>*  +  -z— - 
9pi  9pi 


COS 


4>  * 


Elevation  (type  3  observation 


3E  1  rWl  4...  ,  3v,3  .  3R  .  _ 

957 ■  r; \w~ coe  *’ +  w~ sin  '  15- sin  E| 


Range  Rate  (type  4  observation) 


9R  9w  -  .  J 

aPi  "  9Pi  '  u 


-  9w 
u  ‘  aPi 


y.  z 


k  i 

sin  A 
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DRAG 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DRAG 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutine 
DAUX 

FUNCTION 


Function  is  to  compute  the  perturbative  acceleration  of  a  vehicle  due  to 
atmosphere  drag  and  to  account  for  these  effects  in  the  variational  equations. 

USAGE 


A.  Calling  sequence 
Call  DRAG 


B.  Input 

1.  COMMON 

FLVE 

TV 

TVA 

CELLIP 

TLIST 

TR2 

TR 

GWE 


CDAD2M 

CFTER 

TRHOA 

TALT 


Variational  equation  control  flag 
Earth-fixed  velocity  of  vehicle 
Magnitude  of  TV 

Constant  =  ellipticity  of  the  Earth 
Numerical  integration  working  storage 
Square  of  TR 

Magnitude  of  the  vector  from  the  center 

of  the  Earth  to  the  vehicle 

Constant  =  rotation  rate  of  the  earth 

(radians/minutes)  =  w 

Drag  parameters  C^A^  2  m 

Feet  per  earth  radius 

Density  in  alugs/ft^ 

Altitude  of  vehicle  in  feet 


2.  Calling  sequence 


C.  Output 

1.  COMMON 
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DRAG 


DRAG 


TDRAG  Perturbative  acceleration  due  to  drag 

VMAT  Matrix  of  velocity  dependent  terms  in  the 

evaluation  of  the  variational  equations 
PMAT  Matrix  of  position  dependent  terms  in  the 

evaluation  of  the  variational  equation.  (The 
drag  effects  are  added  to  the  contents  of 
this  matrix.  ) 

D.  Error/  action  messages 
SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 
J  A  CHI  A 
OUTER 

EQUATIONS 


R 

e 


1  -  6 


TT2 


l  -  «(2  -  o 


=  radius  of  the  Earth 


Altitude  -  R  -  R 

e 


Pa 

=  density  at 

the  given  altitude 

V 

-  x  +  to  y 

ax 

e 7 

V 

=  y  -  co  x 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
EVERT 

B.  Segment 
MHESPOD 
NRTPOD 
PREMOD 

C.  Called  by  subroutines 


BODY 

RPRESS 


FUNCTION 

Using  Everett's  Interpolation  formula,  this  routine  approximates  the 
positions  of  the  moon  and  sun  as  a  function  of  a  given  time.  Required  in¬ 
put  are  positions  of  the  moon  and  sun  along  with  their  second  and  fourth 
differences  at  daily  intervals. 

USAGE 


A  Calling  sequence 

CALL  EVERT  (TT) 


B.  Input 

1.  COMMON 


XJD 

POS 


Away  of  Julian  dates  (mod  2430000.  ) 

Position  array  (moon  and  sun) 
corresponding  to  XJD  (true  of  date) 


DEL2 


Array  of  2nd  central  differences  of 
position  corresponding  to  XJD 
(true  of  date) 

Array  of  4th  central  differences 
of  position  corresponding  to  XJD 
(true  of  date) 


DEL4 


TEMP 


Temporary  storage 


2.  Calling  sequence 


TT 


Interpolation  argument  -  time  (days 
mod  2430000.  ) 
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C.  Output 

1.  COMMON 


XN 


6-cell  array  containing  positions 
of  the  moon  and  sun 


XN(1)  = 
XN(2)  = 
XN(3)  = 
XN(4)  = 
XN(5)  = 
XN(6)  = 


moon 

Y 


moon 

Z 


moon 

X 


sun 

Y 


sun 

Z 


sun 


2.  Calling  sequence 


D.  Error/action  meassages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
EQUATIONS 

Everett's  Interpolation  formula  using  central  differences 

f  =  f(x  ) 
o  o 

fl  = 
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EVERT 


r,  v  ,  .  v  (v2-l)  *2,  ,  v(v-l)  (v2-4)  *4, 

f(x)  =  V  fo  +  — -  6  fo  +  - 51 -  &  o 


+  ufj  + 


u(u2-l) 

51 — 


R2f  ,  u(u2-l)  (u2-4) 

6  fl+  - 51 - 


64  f, 


5-111 


FIT 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
FIT 

B.  Segment 
MHESPOD 

C.  Called  by  subroutine 
MESPOD 


FUNCTION 

This  subroutine  monitors  the  solution  of  the  normal  equations,  the 
application  of  the  solution  vector,  and  the  iteration  control. 


USAGE 


A.  Calling  sequence 
Call  FIT 


B.  Input 

1.  COMMON 

IFTEX 

NDPAR1 

NITCT 

NITER 

POBCNT 

TEMP 

TSUS 

TSUSP 


Indicates  mode  of  exit  from  FIT 
Starting  location  where  the  solution  vector 
will  be  stored 
Iteration  counter 

Maximum  iterations  allowable  in  ESPODDC 
Number  of  observations  actually  included  on 
any  iteration 
Temporary  storage 
Current  RMS 

Predicted  RMS  for  next  iteration 


2.  Calling  sequence 


C.  Output 

1.  COMMON 

VSTR  Array  in  variable  storage  containing  the  set 

of  bounds  to  be  used  on  the  next  iteration 

2.  Calling  sequence 
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FIT 


SUBROUTINES  USED 

A.  Library 
SQRT 


B.  Program 

APPLY 

Applies  DC  solution  vector  and  prints 

LEGS2 

Least  squares  package,  solves  AX  =  B 

EQUATIONS 
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FIT 


FIT 


Figure  5-17.  FIT  Flow  Diagram 
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FIT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
FIT 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
DCITER 

FUNCTION 

This  subroutine  monitors  the  flow  of  information  through  the  follow¬ 
ing  sequence  of  events. 

a)  Determines  whether  the  current  iteration  is  converging  or 
diverging 

b)  Forming  the  solution  vector  of  the  differential  correction 
and  applying  it  to  give  new  estimates  of  the  parameters  being 
solved  for 

c)  Test  for  maximum  iterations 

d)  Set  the  bounds  for  the  next  iteration 

e)  Test  whether  4  solutions  in  a  row  have  failed  to  converge 

USAGE 

A.  Calling  sequence 
CALL  FIT 

B.  Input 
1.  COMMON 

CFTEPS 

KOUT 
NDPAR1 

NPR 
NITER 
IFIT 

CFLAG 


Convergence  criterion,  (nominally  set 
to  1.  0  E-3). 

Symbolic  output  tape  (print). 

Identifier  showing  the  starting  location 
of  where  the  solution  vector  will  be 
stored  in  variable  storage. 

Total  number  of  parameters  to  solve  for. 
Maximum  allowable  iterations. 

Identifies  predicted  RMS's  if  bounds  are 
used  in  forming  solutions. 

Suppresses  RMS  test  when  impact  has 
occurred. 
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NITCT 

TSUSB 

TSUSP 

TZ 


XBSQ 

TCRASH 

IFTEX 

POBCNT 

TSUS 


Counter  on  number  of  iterations. 

Best  RMS  so  far. 

Predicted  RMS  for  next  iteration. 

Flag  to  indicate  if  the  solution  was 
affected  by  the  bounds.  If  the  flag  is 
non-zero  the  solution  was  affected  by 
the  bounds. 

Scale  factor  for  BNDS  to  cause  sub¬ 
sequent  solutions  to  be  affected  by 
bounds. 

Flag  to  indicate  impact,  TCRASH 
/  0,  indicates  impact  has  occurred. 
Indicates  mode  of  exit  from  FIT. 

Number  of  observables  actually  included 
(after  editing,  etc.  )  on  any  iteration. 
Current  RMS. 


2.  Calling  sequence 


C.  Output 

1.  COMMON 

VSTR  (NBDNS)  Array  in  variable  storage  containing  the 

set  of  bounds  to  be  used  on  the  next 
iteration 

2.  Calling  sequence 


D.  Error/action  messages 

•  •*************MAjOR  PROGRAM  ERROR.  .  .  .  POSSIBLE 
INPUT  AND/OR  MACHINE  ERROR" 

This  message  is  printed  if  IFIT  is  less  than  or  equal  to  zero. 
SUBROUTINES  USED 


A.  Library 

SORT 

ABS 

B.  Program 

BOUNDS 
LEGS  2 
APPLY 


Scale  bounds  with  a  given  scale  factor 
Least  square  package,  solves  Ax  =  B 
Applies  differential  correction  solution 
vector  and  prints  the  iteration  summary. 


5-117 


FIT 


FIT 


5-118 


GENCE 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
GENCE 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
PREMOD 


FUNCTION 

To  generate  the  core  ephemeris.  The  ephemeris  is  placed  in  / CE/ 
and  its  contents  are  printed  on  unit  KOUT. 

USAGE 

A.  Calling  sequence 
Call  GENCE 

B.  Input 

1.  COMMON 


TNODE 


TEPOCH 


CEP1 


KOUT 
NS  TAT 

VSTR 

CKMER 

CDEG 


Final  time,  in  minutes  from  0  hours, 
to  be  considered  in  the  core 
ephemeris 

Time,  in  minutes  from  0  hours,  of 
epoch,  the  time  of  the  initial  con¬ 
ditions  of  the  trajectory 
A  parameter  to  control  the  interval 
of  the  core  ephemeris.  The  interval 
will  be  integer  multiple  of  60/CEPl 
seconds 

Number  of  the  output  device 
Location  in  VSTR  of  the  first  cell  of 
the  master  sensor  table 
Block  of  "variable  storage" 
Kilometers  per  earth  radius 
Degrees  per  radian 


ICEFLG 


Core  ephemeris  flag: 


_  3R 
=  0lf8t- 


3A 

at  ’ 


9E 

at 


desired 


=  1  if  R,  A,  E  desired 
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2.  Calling  sequence 


C.  Output 

1.  COMMON 

/CE/  The  core  ephemeris 

2.  Calling  sequence 

D.  Error/  action  messages 


E.  Internal  storage 
1.  COMMON 


PS  TAT 
PUBS 

2.  Temporary  storage 
CESIZ 

TEMP 

ICE 

I,  J,  L 

XI 

SUBROUTINES  USED 

A.  Library 
.  FCNV. 

.  FFIL. 

B.  Program 
CEAZ 

CEGEN 

SETIC 

TRAJ 


The  working  station  table 
The  observation  table 


The  number  of  entries  in  the  core 

ephemeris 

Temporary  storage 

A  working  counter  pointing  to  the 

next  time  entry  in  the  core  ephemeris 

Counters  for  DO  loops 

Floating  point  value  of  I  counter  for 

use  in  REAL  arithmetic  statement 


.  FVIO. 

.  FWRD. 


Insures  a  smooth  azimuth  in  the  core 

ephemeris  . 

Generates  R,  A,  E,  R,  A,  E,  R, 


8R  8A 
9t  ’  9t  ’ 


8E 

at 


at  time  t 


Initialize  integration  routine 
Integrates  the  equations  of  motion 
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EQUATIONS 

The  A  time  interval  for  the  core  ephemeris  is  computed  in  the  follow¬ 
ing  way: 

Let 

N  =  Total  #  of  entries  in  the  core  ephemeris  (CESIZ) 

T^  =  Final  time  of  interest  for  the  core  ephemeris  (TNODE) 

T  *  Initial  time  for  the  trajectory  simulation  (TEPOCH) 
o  £Q 

K  =  A  must  be  a  multiple  of  seconds*  For  example: 

if  K  =  1  ...  A  must  be  a  multiple  of  1  minute 

K  =  30  .  .  .  A  must  be  a  multiple  of  .  5  minute 

K  =  60  .  .  .  A  must  be  a  multiple  of  1  second 

Since  the  interpolation  scheme  requires  4  points,  2  in  front  and  2 
behind,  we  must  ensure  that  there  are  2  entries  in  the  core  ephemeris 
beyond  Tt  or: 


Tq  +  A  Tq+(N •3)A  Tq+(N-2)a  Tq+(N-1)A 

or 

Tt<  T  +  (N-2)  A  or  T  T  =  T  +  (N-3)  A 

O  L  O 

Tt  -  T 

.  _  L  o 

Amin  =  ‘  N-3 

to  insure  A  iB  a  multiple  of  60/K  seconds: 


Q 

A 


[K  A  .  1 

|_  minj 

QK. 


where 


integer  part  of  x 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
GPERT 

B.  Segment 
MHESPOD 
PREMOD 
NRTPOD 

C.  Called  by  subroutine 
POTENT 

FUNCTION 

The  function  of  this  subroutine  is  computing  the  perturbative  acceler¬ 
ation  of  a  spacecraft  resulting  from  the  fact  that  the  Earth  is  not  a  homo¬ 
geneous  sphere.  (The  resulting  harmonics  are  termed  zonal,  sectorial, 
and  tesse  ral.  ) 

USAGE 

A.  Calling  sequence 
Call  GPERT 

B.  Input 

1.  COMMON 

SIPH  Sin  q>  where  <£  is  the  geocentric  latitude  ol  the 

veh  icie 

COPH  Cos  4> 

SILA  Sin  X  where  X  is  the  east  longitude  of  the  vehicle 
COLA  Cos  X 

SNALFSm  a  where  a  is  the  right  ascension  of  the  vehicle 
CSALFCos  a 

FJ  12-cell  array  containing  the  values  of  the  desired 

zonal  harmonic  constants 

C  6x6  array  used  in  the  simulation  of  the  sectorial 

and  tesseral  harmonics  (see  JCS  subroutine) 

S  6x6  array  as  above 
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N1  Degree  of  the  highest  zonal  harmonic 

NZ  Degree  of  the  highest  sectorial  harmonic 

N3  Degree  of  the  highest  tesseral  harmonic 

CMU  Earth's  GM  (er^/min^) 

TR  Magnitude  of  the  radius  vector,  Earth  to  vehicle  (er) 
TR3  The  cube  of  TR 
Z.  Calling  sequence 

C,  Output 

1.  COMMON 

TPOT  Perturbative  acceleration  of  the  vehicle  in  x,  y,  z, 
inertial  coordinate  system  due  to  earth's  potential 
function 

Z.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
EQUATIONS 

This  is  a  recursive  computation,  formulated  as  described  in  the 
following  paragraphs. 

Acceleration  in  a  local  rectangular  system  (f,  g,  h)  with  h  along  the 
outward  geocentric  vertical,  f  directed  south  and  g  directed  east. 
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N1  f 

t  =  cos  *  Z  V  )  P'n 

n=2  1 


N2 

+  £  mr 
m=2 


-  m- 2 


sin  <t>  (sec  <+>  pn  ]  (C  cos  m\  +  S  sin  mM 
T  V  m  /  mm  mm 


N3  N3 


IN  J  IN  J  p  / 

-  7  5"  r  n  (cos«}>p  (C  cos  m\  +  S  sin  m\) 

L*  .  L,  .  V  n  r  nm  nm 

m  =  l  n=m+l 


N2 

a  -  -  Y 
*  m=2 


mr  m  ^  (sec  4>  p m  |  (C  sin  m\.  -  S  cos  mX) 
\  m  J  mm  mm 


N3  N3 

"  Z  m  Z  r 

m  =  l  n=m+ 1 


n-Z(^*“n) 


sec  4>  P  (C  sin  mV  -  S  cos  m\) 


nm 


nm 


N1  /  >\ 

■  Z,  '"+1>(J„r  On 

n=2 


-  COS  4> 


N2  If  m  \ 

Z  .  (m  +  1 )  r  _m  |sec  4>  p m  J(C  ^  cos  m  +  sin  m\) 


m=2 


N3  N3 


mm 


+  Y  Y  (n+l)r  n  (sec  6  pnA  \[G  cosmK  +  S  sinmM 
m  =  l  n=m+ 1  n  J  nm  nm 


where 


pn  =  (T^n  -  1)  sin  4>  pn  l  -  (n  -  1)  Pn_  J  /n 


P  “  1 
yo 


p  =  sin  <$> 


p'  =  sin  ijip1  .  +  np 
rn  T  n- 1  n- 1 


Pi 


5.125 


GPERT 


GPERT 


and 


|sec  4>  P™  j  =  (2m  -  1)  cos  <j>  ^sec  <f>  p™_jj 
(sec  4>  p'j)  =  1 

sec  <}>  -  ^2n  -  1)  sin  <}>  |sec  <J>  p^1  ^  -  (n 

m 

sec  4>  p  ,  n 
rm-  1=0 


+  m 


1)  ^sec  4>  p™^Jj  /(n-ni) 


and 


|co s  4>  p™  j  =  -m  sin  4>  |sec  <f>  p™  j 

|cos  <f>  p™  J  =  -n  sin  <f>  |sec  <J>  p ™  j  +  (n  +  m)  ^sec  <t> 

These  accelerations  are  then  rotated  to  an  x,  y,  z  inertial  system 
and  scaled  by  the  Earth!s  GM(p.) 


=  M- 


cos  a  sin  <f>  -sin  q  cos  a  cos  <j> 


sin  a  sin  <\>  cos  q  sin  a  cos  (j> 


-  cos  <j> 


sin  <J> 


lf 
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Initialize  for 
recursions 


Nl 


=  0  (no  zona  Is) 


Jt 


0  (tess  vel  sect) 


MPL  =  MAX  (Nl  f  1,  l) 


Initialize  lor 
recursions 


t  _ 

Do  500  M  1,  Max 


I 


Yes 


No 

l _ . 

ACCESS 
C  MM'  SMM 


Yes 

M  >N  2 


i  Note.  Vel  means  andyor 


sfMMVK^MM>  U- 


Update  partial  sums 
with  sectorials 


M  <  N3 

1 


No 


Figure  5-19.  GPERT  Flow  Diagram 
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Initialize  for 
tea  serais 


DO  480  N  r  MPL, 
N3 


ACCESS 
C(N,  M), 
S(N,  M) 


No 

_ j  . . . 

Update  partial  sums 
with  respect  to 
te  sserals 


C 

c 


480 

y 


500 


_ I 

END  INNER  LOOP 

END  OUTER  LOOP 


— r~ 

1 


Figure  5-19. 


_ _ t 

Rotate  accelerations 
to  inertial  system 


* 

RETURN 


GPERT  Flow  Diagram  (Continued) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 

HUMAH 


B.  Segment 

NRTPOD  -  Input  Processor 
PREMOD 

C.  Called  by  subroutines 

PRAUPD 

PRTATA 

APPLY 

SUPMAT 

STSMAT 

FUNCTION 

T 

This  subroutine  functions  in  converting  a  vector,  A"  A  matrix,  or 
T  - 1 

the  (A  A)  matrix  from  machine  units  to  human  units  or  from  human 

T 

units  to  machine  units.  The  A  A  is  an  upper  triangular  matrix,  and  the 
T  - 1 

(A  A)  is  a  lower  triangular  matrix. 

USAGE 

A.  Calling  sequence 

CALL  HUMAH  (A,  I,  B,  J,  K,  L) 


B.  Input 


1.  COMMON 


2.  Calling  sequence 


a)  A(I)  starting  location  of  the  array  to  be  converted 

b)  B(J)  starting  location  of  the  scaling  vector 

c)  K  dimension  of  A  and  B 

d)  L  L  =  +  1,  if  a  vector  is  to  be  converted  from  machine 

unit  to  human  units. 


L  =  -  1,  if  a  vector  is  to  be  converted  from  human 
units  to  machine  units. 

T 

L  =  +  2,  if  an  A  A  matrix  is  to  be  converted  from 
machine  units  to  human  units. 

T 

L  =  -  2,  if  an  A  A  matrix  is  to  be  converted  from 
human  units  to  machine  units. 


5-129 


HUM  AH 


HUMAH 


T  -1 

L  =  +3,  if  an  (A  A)  matrix  is  to  be  converted  from 
machine  units  to  human  units. 

T  - 1 

L  =  -  3,  if  an  (A  A)  matrix  is  to  be  converted  from 
human  units  to  machine  units 


C.  Output 

1.  COMMON 

2.  Calling  sequence 

A(I)  The  matrix  or  vector  A  in  the  changed  units  defined  by 
L 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

LABS  Absolute  value 

B.  Program 
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Figure  5-20.  HUMAH  Flow  Diagram 
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Figure  5-20.  HUMAH  Flow  Diagram  (Continued) 
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HU  MAH 


Figure  5-20.  HUMAH  Flow  Diagram  (Continued) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
INPUT 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutines 
NRTPOD  (DRIVER) 

FUNCTION 

INPUT'S  function  is  to  serve  as  a  main  driver  for  the  Input  Processor 
Link.  It  utilizes  routines  to  initialize  COMMON  storage,  process  NAME- 
LIST  input,  assign  variable  storage,  and  process  sensor  information  and 
observations. 

USAGE 

A.  Calling  sequence 
CALL  INPUT 

B.  Input 

1.  //COMMON 

2.  Calling  sequence 

C.  Output 

1.  //common 

2.  Calling  sequence 

D.  Error/action  messages 


5-135 


INPUT 


INPUT 


E.  Internal  storage 

1.  //COMMON 
NDAYS 

DVEHN 

DHEAD 

PREFLG 

DCF  LG 

PSTFLG 

KIN 

KOUT 

COMLST 


Number  of  days  of  ephemeris  data  (posi¬ 
tions  of  the  moon  and  sun)  accepted  on 
input 

Array  of  3  BCD  words  identifying  the 

vehicle  number  and  name 

(Input  to  columns  4-17  on  JDC  card) 

2  BCD  words  containing  arbitrary  header 
information,  (Input  to  columns  18-29  on 
JDC  card) 

NRTPOD  control  flags 
(columns  31-40  on  JDC  card) 

NRTPOD  control  flags 
(columns  41-50  on  JDC  card) 

NRTPOD  control  flags 
(columns  51-60  on  JDC  card) 

Symbolic  input  tape  number 
Symbolic  output  tape  number 
Contains  size  of  variable  storage 


2. 


Labeled  COMMON 


/vstr/ 

VSTR 

/iNPP/ 

DTMP 


DATA 

/ephcom/ 

ECOM 


Variable  storage  array 

Temporary  cells  containing  sensor 
information  used  by  the  Input  Processor 
Link 

Temporary  cells  used  only  by  the  Input 
Processor  Link 

Array  of  storage  containing  the  moon  and 
sun  ephemeris  of  positions  (Input  to 
NRTPOD) 


SUBROUTINES  USED 


A.  Library 


B.  Program 

SETCON 

RDDATA 

ASSIGN 


Sets  up  program  constants. 

Routine  to  read  NAMELIST  input  and 
Ephemeris  data. 

Establishes  storage  assignments  for 
VSTR  (variable  storage)  arrays. 
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INPUT 


SETTAB 

SDEL.ET 

STSMAT 

SUPMAT 

DPR  EM 

PRECES 

DPR  OS 
PRCONS 


Sets  up  VSTR  (NIDP),  VSTR  (NPRCD) , 

VSTR  (NPBIS) ,  VSTR  (NSC ALE),  VSTR 
(NBDNS),  and  DTMP  tables. 

Moves  observation  deletion  numbers  from 
DATA  storage  to  VSTR  (NIDLED). 

Convert  the  upper  triangular  S  matrix  in 
DATA  storage  from  human  units  to  machine 
units  and  then  transfer  to  VSTR  (NATA). 
Move  the  initial  update  matrix  from  DATA 
storage  to  VSTR  (NR)  and  convert  from 
human  units  to  machine  units* 

Sets  up  preliminary  information  for  the 
input  processor.  This  information  con¬ 
cerns  epoch  time  and  mode  of  epoch  posi¬ 
tion  and  velocity. 

Precess  ephemeric  data  from  mean  equator 
and  equinox  of  1950.  0  to  the  equator  and 
true  equinox  of  date. 

Issue  calls  on  the  sensor  and  observation 
loading  routines  if  required. 

Prints  program  constants,  input  data, 
variable  storage  pointers,  and  working 
storage  cells. 
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I  M  PUT 


INPUT 


CALL 

RDDATA 


CALL 

STSMAT 


ZERO  OUT  // 
COMMON  CELLS 


PE  All 

JDC  CARD 


PRINT 

JDC  OPT  IONS, 
OUTPUT  HEADER 


CALL 

SETTAB 


CALL 

SDELET 


CALL 

ASSIGN 


Figure  5-21.  INPUT  Flow  Diagram 
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INPUT 


INPUT 


Figure  5-21.  INPUT  Flow  Diagram  (Continued) 
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IPRNT 


IPRNT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
IPRNT 

B.  Segment 
PREMOD 

C.  Called  by  subroutines 
DPRLM 

PREMOD 

FUNCTION 

To  output: 


a)  A  time  header  of  year,  month,  day,  hour,  minutes,  and 
seconds 

b)  The  right  ascension  of  Greenwich  at  0  hours  of  the  given  day 

c)  The  value  of  (x,  y,  z,  x,  y,  z)  and  (a,  6,  (3,  A,  R,  V)  at  the 
given  time 


This  routine  is  entered  after  the  preliminary  epoch  has  been 
established  (from  DPRLM)  and  after  the  final  epoch  has  been  determined 
(from  PREMOD). 

USAGE 

A.  Calling  sequence 
CALL  IPRNT 

B.  Input 

1.  COMMON 


KOUT 

TALFAG 


CDEG 

DYEAR 


DSEC 

TNOMX 


Number  of  the  output  device 
Right  ascension  of  the  Greenwich 
meridian  at  0  hours  of  the  day  of 
interest  (radians) 

Degrees  per  radian 
First  location  of  5-cell  array  con¬ 
taining  integer  year -1900,  month, 
day,  hour,  and  minute  of  epoch 
Seconds 

A  6-cell  vector  containing  x,  y,  z  , 
x,  y,  and  z  in  kilometers  and  seconds 
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1  PR  NT 


IPRNT 


2.  Calling  sequence 


C.  Output 

1.  COMMON 

2.  Calling  :< e q u  ,  e 

D.  Error/action  message 

Temporary  storage 


•  FVIO. 

.  FWRD. 

Convert  Cartesian  elements  to  polar 


E.  Internal  storage 
TEMP,  ITEMP 
SUBROUTINES  USED 

A.  Library 

.  FCNV. 

.  FFIL. 

B.  Program 
CTOP 

EQUATIONS 
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IPRNT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
IPRNT 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutines 
DPRLM 

FUNCTION 

The  function  is  to  print  out  the  header,  initial  conditions,  vehicle 
number  and  name,  and  drag  and  radiation  pressure  parameters,  if  any. 

USAGE 


A.  Calling  sequence 
CALL  IPRNT 


B.  Input 


1.  COMMON 


a.  Labeled  COMMON 
/iNPP/ 

DRAGCD  Coefficient  of  Drag  ( C j_j) 

RPGAM  Radiation  pressure  parameter,  V  , 

reflectivity  constant. 

b.  Blank  COMMON 


CKMFT 

CMTER 

CDEG 

KOUT 

DVEHN 

CDAD2M 

SGAMAM 


TALFAG 

DYEAR 

DMNTH 

DDAY 


Conversion  constant  from  ft  to  km 
Conversion  constant  from  earth 
radii  to  meters 

Conversion  constant  from  radians  to 
degrees 

Symbolic  output  tape  number  (print) 
Vehicle  no.  and  name  specified  on 
input  (JDC  card  columns  4-17) 
Ballistic  drag  parameter, 

CdA/2M  (Internal  units  ft^/slug) 


Radiation  pressure  parameter, 
S  YA/m  (Internal  units  e.  r.  ^ 

~~r 


min 

Og  for  midnight,  day  of  epoch 
Epoch  year 
Epoch  month 
Epoch  day 
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IPRNT 


DHOUR 

DMIN 

DSEC 

TNOMX 

TNOMP 


Epoch  hour 
Epoch  minutes 
Epoch  seconds 

Initial  Cartesian  coordinates  (x,  y, 
z,  x,  y,  z) 

Initial  polar  coordinates  (a,  6,  p,  A, 
R,  V) 


2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 


D. 


Error/action  messages 


E.  Internal  storage 
1.  COMMON 


2.  Temporary  storage 


S 


CKGSG 

SUBROUTINES  USED 

A.  Library 


radiation  pressure  constant 

(Kilogram-meters 

sec 

conversion  constant  from  slugs  to 
kilograms. 


B.  Program 
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JACHIA 


SUBROUTINE  IDENTIFICATION 


A.  Title 
JACHIA 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 


C.  Called  by  subroutine 
DRAG 

FUNCTION 

Computes  the  density  of  air  using  the  Lockheed  Jacchia  atmospheric 
model. 


USAGE 

A.  Calling  sequence 
CALL  JACHIA 


B .  Input 

1 .  COMMON 
TALT 
CFTNM 
TLIST 

TJDATE 

CZPI 

TR 

TG 

TEMP 


Altitude  of  vehicle  (ft) 

Conversion  from  nautical  miles  to  feet 

Numerical  integration  working  storage 
(JACHIA  uses  position  and  velocity 
vectors  of  the  vehicles) 

Julian  date  of  midnight,  epoch  day 

2tt 

Radius  magnitude  of  vehicle  (e.r.) 
Time  to  integrate  to  (min) 

Temporary  working  storage 


2.  Calling  sequence 


C .  Output 

1 .  COMMON 

3 

TRHOA  Density  of  air  (slugs/ft  ) 
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JACHIA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
JACHIA 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutines 
DRAG 

FUNCTION 

Computes  the  density  of  air  using  the  Lockheed  Jacchia  atmospheric 
model. 

USAGE 

A.  Calling  sequence 
CALL  JACHIA 

B.  Input 

1.  COMMON 


TALT 

CFTNM 

TLIST 

TJDATE 

C2PI 

TR 

TG 

TEMP 


Altitude  of  vehicle  (ft) 

Conversion  from  nautical  miles  to  feet 

Numerical  integration  working  storage 
(JACHIA  uses  position  and  velocity 
vectors  of  the  vehicles) 

Julian  date  of  midnight,  epoch  day 

2  ir 

Radius  magnitude  of  vehicle  (e.  r.  ) 
Time  to  integrate  to  (min) 

Temporary  working  storage  (min) 


2.  Calling  sequence 


C.  Output 

1.  COMMON 

3 

TRHOA  -  Density  of  air  slugs /ft 


5-146 


JACHIA 


JA  CHIA 


2.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
COS 
SIN 
EXP 

B.  Program 
ATM59 

EQUATIONS 


In  the  following  expressions,  the  various  parameters  and  geocentric 
equatorial  coordinates  are  defined,  thus: 


X,  Y,  Z  = 


R  = 


l. 


m,  n  = 


d  = 


X  = 
s 


c  = 


m 


Geocentric  Cartesian  coordinates  of  the 
field  point,  where  X  and  Y  are  in  the 
earth's  equatorial  plane  (X  positive,  in 
the  direction  of  the  vernal  equinox  of 
date;  Y  positive  outward  on  an  axis  90° 
east)  and  Z  is  measured  north  along  the 
earth’s  spin  axis. 


Geocentric  distance  of  the  field  point 
=  Vx2  +  Y2  +  Z2 


Direction  cosines  of  field  point: 

-  _  X  _  Y  _  Z 
*  =  TP  m  =  IP  n  =  R 

Days  elapsed  since  Dec.  31,  1957 

Celestial  longitude  of  sun;  an  adequate 
approximation  in  radians  is: 

X  =  0.  017203d  +0.  0335  sin  0.  017203d-l.  410 
s 

Inclination  of  ecliptic  =  .  4092  rad 

Direction  cosines  of  sun 

1  =  cos  X 

*s  s 

m  =  sin  X  cos  t 
s  s 

n  =  sin  X  sin  * 
s  s 
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EQUATIONS  (Continued) 


Y  =  Geocentric  angle  between  sun  and  field  point, 

cos  if  =  +  mm  +  nn 

*  s  s  s 

0  =  longitudinal  lag  of  diurnal  bulge;  an  adequate 

average  is  .  55  rad 

i( '  =  Geocentric  angle  between  diurnal  bulge  and 

field  point;  cos  f1  =  (££  +  mm  )  cos  9 

+  m£  -  £m  )sin  9  +  nn 
s  s  s 

h  =  Altitude  above  ellipsoidal  earth  in  nautical 

miles 


F 


10. 


7 


P  = 


Flux  of  10.  7  cm  solar  radiation  in  units  of 
10"^®  watt/meter^;  an  adequate  approximation 
if  F10  =  1.  5  +  0.  8  cos  (2*d/4020) 

3 

Atmospheric  density  in  slug/ft 


0  to  76  n  mi.  In  this  region,  the  ARDC  (1959)  atmosphere  is  to  be  used 
with  a  correction  factor  in  the  form: 


P  =  P 


1959  ARDC 
applied  between  16  and  50  nm. 


1  -  0.  6n3 

1  -  cos  2* 

fh-l6| 

cos  2  n 

d+9) 

34  / 

365 1 1 

1 

J 

76  to  1 08  n  mi .  The  following  formula  will  serve  as  a  connection  be¬ 
tween  the  two  bordering  regions.  The  slope  of  the  profile  will  often  be 
discontinuous  at  the  end  points: 


p  =  5.  606  x  10  ^  x 


76 

TT 


7.  18 


108-h 

~TT~ 


+  0.  85 


h-76 

~TT 


4/3 


10 


J 


.  ,  h-76  1  +  cos  V3 

1  +TTT  - 1 - 


1  08  to  378  n  mi.  Jacchia's  formula  (13)  can  be  written,  using  the  10.  7  cm 
flux,  as 


P  =PQ(h) 


0.  85  F10  7I<  1+  0.  19 


exp(0.  0102  h)  -1.  9 


l+cos 

~ n 
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EQUATIONS  (Continued) 

logl0  PQ(h)  =  -15.  738  -  0.  00368  h  +  6.  363  exp  (-0.  0048  h) 

378  to  1000  nm.  For  these  altitudes  only  an  approximate  form  can  be 
given: 

F 

10  7 

p=  0.  00504  c 

h5 


\3 

,  6  \  ,  6 

1  +COS  f  1 

f  6x10  6x  10_ 

*  1 

h 3  1  h^J 
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JCBINV 


SUBROUTINE  IDENTIFICATION 

A.  Title 
JCBINV 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
UPDATE 

FUNCTION 

To  calculate  the  inverse  of  the  variational  equations  matrix  using 
the  Jacobi  inverse  technique. 

USAGE 

A.  Calling  sequence 
CALL  JCBINV  (A,  B) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

A.  .  .  Matrix  to  be  inverted  (assumed  stored  as  a  two- 

dimensional  6x6  array) 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

B.  .  .  Inverse  of  A  (assumed  stored  as  a  two-dimensional 

6x6  array) 

D.  Error/action  messages 
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JCBINV 


SUBROUTINES  USED 

A.  Library 

B.  Program 

EQUATIONS 


Consider  the  variational  equations 
P  =  a(t)  p 

this  is  equivalent  to 


where  p  is  a  3  x  1  column  vector 
and  a(t)  a  3  x  3  symmetric  matrix 


P  =  A(t)  P  where  P  = 


’  p " 

and  A  = 

’  0 

I  " 

p 

a 

0 

If  we  let 


J  = 


0  I 

-I  0 


we  note  JA  is  symmetric. 


Let  M(t)  be  a  6  x  6  matrix  satisfying 

M  =  AM  «  M(tQ)  =  I 
Since  JA  is  symmetric  so  is  the  product 

M'  JAM  =  M'  JM 

and  it  follows  that 

M'  JM  =  (M'  JM)'  =  M'J'M  =  -  M'  JM 
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JCBINV 


And  as  a  consequence,  we  find 


4-  (M1  JM)  =  M1  JM  +  M'  JM  =  0 

dt 

and  conclude  that  M'  JM  is  a  constant 


M'  (t)  JM  (t)  =  M'  (tQ)  JM  (tQ)  =  J 
Since  J  is  orthogonal 

M~ 1  =  J'  M'J 
Partitioning  M  into  3x3  submatrices; 


Mn 

M12 

M21 

M22 

M> 

-M' 

22 

12 

-M' 

M' 

21 

11 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
JCS 

B.  Segment 

PREMOD 

NRTPOD 

C.  Called  by  subroutine 
SETSTR 

FUNCTION 

To  determine  the  geopotential  model  to  be  used  in  the  trajectory 
simulation.  This  routine  sets  up  3  working  arrays  (FJ,  C,  S)  for  sub¬ 
routine  GPERT  from  the  master  constant  arrays  CJ,  CJNM,  CLAMNN. 

USAGE 

A.  Calling  sequence 
CALL  JCS 

B.  Input 

1.  COMMON 


ZONAL 


12  flags  to  indicate  which  zonal 
harmonics  to  be  included  in  the 
earths  potential  model.  If  the  i'th 
entry  is  zero  do  not  include,  if  non¬ 
zero  include  J.. 


•  I 
1 


CJ 


CLAMNN 


The  value  of  J ,  ,  J  ~ ,  .  .  .  ,  Jj^for  the 
earth.  1  C 

The  value  of  \ ,  kzZ  ,  .  .  , ,  for 

the  earth.  These  are  the  sectorial 
phase  angles,  in  degrees. 
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CJNM 


J11 

X21 

X31 

X61 

J21 

J22 

X32 

X62 

J31 

J32 

J33 

A  two-dimensional 

array  with  the  X.. 

J44 

in  degrees.  ^ 

J55  X65 

J61 

J62 

J65  J66 

SECT  6  flags  to  indicate  which  sectorial  harmonics 

are  to  be  included  in  the  earth*s  potential  model. 
If  the  i'th  entry  is  zero  do  not  include,  if  non¬ 
zero  include  J..,  X... 

11  11 

TESS  A  15-cell  vector  of  code  words  to  describe  the 

tesseral  harmonics  to  be  included  in  the  earth's 
potential  mode.  Each  code  word  is  of  the  form 
10  M  +  N.  The  program  will  include  the 
tesseral  harmonics  due  to  JjvlN*  ^MN  the 
model.  M  must  be  greater  than  N,  and  the  list 
is  assumed  terminated  whenever  a  0  entry 
is  encountered. 

CDEG  Degrees  per  radian. 

KOUT  Logical  number  of  the  output  device. 

2.  Calling  sequence 


C.  Output 

1.  COMMON 


N1  The  degree  of  the  highest  zonal 

harmonic  requested  (N1  -  12). 

N2  The  degree  of  the  highest  sectoral 

harmonic  requested  (N2  ^  6). 

N3  The  degree  of  the  highest  tesseral 

harmonic  requested  (N3  -  6). 

FJ  A  12 -cell  vector  containing  the 

values  of  the  zonal  harmonics  to  be 
included  in  the  geopotential  model. 
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If  a  cell  is  0,  it  indicates  that  the 
corresponding  harmonic  is  not  to  be 
simulated. 

C,  S  Two-dimensional  arrays  containing 

expressions  in  J-,  (see  equations). 
Only  the  lower  triangular  portion  of 
each  array  is  used.  If  a  cell  is  zero, 
the  J -  are  not  simulated  in 

GPEKT.  1J 

2.  Calling  sequence 


D.  Error-action  messages 

If  the  degree  (M)  of  a  requested  tesseral  harmonic  is  greater 
than  the  order  (N)  as  decoded  from  the  TESS  input  array,  the  following 
error  comment  is  printed: 

****ILLEGAL  TESSERAL  JXX  REQUESTED,  IGNORING  AND 
PROCEEDING 

SUBROUTINES  USED 

A.  Library 

.  COS. 

.SIN. 

B.  Program 

EQUATIONS 

The  following  equations  are  used  to  convert  the  tesseral  and  sectorial 
J i j  ,  X.-j  to  their  corresponding  trigonometric  form: 


FCNV. 

FFIL. 


.  FVIO. 

.  FWRD. 


J..  cos 

U 


(jX..) 
J  ij 


S.. 

U 


sin  (jX. .) 
J  ij 


i,  j  =  1,  6 
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J  TOC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
J  TOC 

B.  Segment 
PREMOD 

C.  Called  by  Subroutine 

MTOC  Updates  a  set  of  mean  orbital  elements  and 

transforms  them  to  osculating  orbital  elements 
and  then  to  Cartesian  elements 

FUNCTION 

This  routine  converts  a  Julian  date  given  in  integral  and  fractional 
days  to  a  calendar  date  expressed  in  year,  month,  day,  hours,  minutes, 
seconds.  The  given  Julian  day  is  modulated  by  2,  400,  000.  5  which 
conforms  to  the  SPADATS/SPACFTR ACK  mean  element  set  (card)  format 
specifications. 

USAGE 

A.  Calling  Sequence 

Call  JTOC  (DAYINT,  DAYFRC ,  DYEAR,  DMNTH, 

DDAY,  DHOUR,  DMIN,  DSEC) 

B.  Input 

1.  COMMON 

2.  Calling  Sequence 

DAYINT  Integral  Julian  day 

DAYFRC  Fractional  Julian  day 

Note:  Both  DAYINT  and  DAYFRC  combine  to  form  a 

complete  Julian  day  mod  2,  400,  000.  5. 

F or  example, 

give  a  Julian  date:  2,  438,  795.  02777070, 
mod  2,400,000.5 

results  in  a  modulated  Julian  day: 

38794. 52777070 

In  this  case  DAYINT  =  38794. 

DAYFRC  =  .  52777070 
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C.  Output 

1.  COMMON 


2.  Calling  Sequence 

DYEAR  year 

DMNTH  month 

DDAY  day 

DHOUR  hours 

DMIN  minutes 

DSEC  seconds 


D.  Error/Action  messages 


SUBROUTINES  USED 

A.  Library 
AINT 

B.  Program 

CDCD  modulates  a  given  calendar  date 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
LEGS1 

B.  Segment 
MHESPOD 
NRTPOD 

C.  Called  by  subroutine 
RADR 

FUNCTION 

This  subroutine  transforms  the  augmented  matrix  (A,  B)  of  the  system 
Ax  =  B  into  the  augmented  normal  matrix. 


T 

A  A 

T 

alb 

T 

B  A 

T 

B  B 

Since  the  augmented  normal  matrix  is  symmetric,  only  the  upper  triangle 
part  is  stored.  • 

USAGE 

A.  Calling  sequence 

Call  EEGS1  (K,  13,  SUS) 

B.  Input 


COMMON 

NAROW 

Identifies  the  starting  location  where  1  row 
of  the  augmented  matrix  (A,  B)  is  stored 

NATA 

Identifies  the  starting  location  of  where  the 
triangular  ATA  is  stored 

NBDNS 

Identifies  the  starting  location  for  the  bounds, 
used  by  LEGS2 

NPR 

Number  of  all  parameters  to  solve  for 
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2.  Calling  sequence 

K  Row  number  of  A 

T 

13  13  is  used  only  when  K  =  1 .  If  13  2  0,  the  A  A  section 

is  cleared  before  computing  A^A.  If  13  <  0,  the  section 
is  not  cleared. 

C.  Output 

1.  COMMON 

T 

VSTR  (NATA)  Where  the  triangular  A  A  is  stored 

2.  Calling  sequence 

SUS  Current  sum  of  squares  of  weighted  residuals 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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Figure  5-22.  LEGS  1  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
LEGS2 

B.  Segment 

MESPOD 
NR T POD 

C.  Called  by  subroutine 
FIT 

PRAUPD  (In  NRTPOD  version  only) 
FUNCTIONS 


a)  To  solve  an  overdeter  mined  linear  system  of 
equations  Ax  =  b 

T 

b)  To  compute  the  inverse  of  A  A 

c)  After  solving  for  x,  to  compute  ||Ax  -  b  |  [ ^ 

USAGE 

A.  Calling  sequence 

Call  LEGS2  (NDPAR,  Z,  SUSP,  11,  12,  14) 

B.  Input 

1.  COMMON 


NATA  Identifies  the  starting  location  of  where  the  upper 
triangular  A^A  is  stored 

NBDNS  Identifies  the  starting  location  for  the  bounds  used 
by  EEGS2 

NPR  Number  of  all  parameters  to  solve  for 


NR 


Identifies  the  starting  location  of  where  the  inverse 
ata  (in  triangular  form)  is  stored 


2.  Calling  Sequence 

NDPAR  The  index  for  variable  storage  where  the  solution 
vector  x  is  to  be  stored 

11) 

12  )  Option  control  flags 

14/ 
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L.EGS2 


C.  Output 

1 .  COMMON 

Start  of  the  array  containing  the  solution 
vector  x 

T  -1 

Start  of  an  array  containing  (A  A)  as 
a  lower  triangular  matrix 


Flag  to  indicate  if  the  solution  was 
affected  by  the  bounds.  If  the  flag  is 
non-zero  the  solution  was  affected  by 
the  bounds 

Predicted  SOS  for  the  next  iteration 

SUBROUTINES  USED 
A,  Library 


B.  Programs 


VSTR  (NDPAR ) 

VSTR  (NR) 

2.  Calling  sequence 
Z 

B 


EQUATIONS 

ii  „  2 

To  solve  for  differential  corrections,  find  x  so  that  ]|Ax  -  b|j  is 
minimum  under  the  side  condition  that 


The  side  condition  may  be  described  as 


-2 

B  is  a  diagonal 
matrix 


where 

xTB~2  x  <  1 
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Bounds 

Define  x(z)  as  the  solution  of  the  linear  system 

T  -2  T 

(A  A  +  zB  j  X  =  A  b 

_  j 

where  B  is  the  diagonal  matrix  with  the  (i,  i)  diagonal  element  being 

B.  ^  if  B  >  0  and  B  <  0.  If  B.  =  0,  the  i ^  row  and  column  of  the  augmented 
1111 

normal  matrix  is  ignored  and  x^  is  set  to  zero. 

-2 

a)  The  routine  finds  x  =  x(0).  If  (B  x,  x)  <  1  +  b  the  solution 
is  obtained.  Otherwise 

b)  Define  y(z)  =  [^B  ^  x(z),  x(z)J.  Now  y(0)  >  1  +  €j.  Compare 
y(h),  y ( 1  Oh),  y(100h),  •  •  •  ,  until  a  value  of  z  is  found  with 

1  -  e  2  <  y(z)  <  1  +  ,  in  which  case  x(z)  is  the  solution  or 

until  two  values  of  z  are  found  with  y(z^)  >  1  +  €i  and  y(z£) 

<  1  -  *2-  The  required  value  of  z  is  now  bracketed.  Then 

c)  Choose  a  value  z^  between  z^  and  Z2.  If  1  -  €  2  <  y(z-})  <  1 
+  €  ^  1  then  y(  z^)  is  the  solution.  Otherwise 

d)  Use  inverse  quadratic  interpolation  (to  zero)  to  obtain  a  new 
guess  Z4.  If  1  -  *2  <  y(z4>  <  1  +  €1*  then  x  (z^)  is  the 
solution.  Otherwise 

e)  Select  from  the  set  zj,  Z2»  Z3,  Z4  the  two  values  of  z  which 
bracket  the  solution  most  tightly.  Use  these  values  as  zj  and 
z^  and  go  back  to  3. 

The  iterative  process  will  stop  if  the  number  of  solutions  of  the  linear 

system  reaches  20. 

Linear  System 

T  -  2  T 

Let  C  =  A  A  4  zB  .  The  routine  finds  a  matrix  S  with  SCS  D. 

S  is  lower  triangular  with  (-1)  on  the  diagonal.  It  is  easy  to  find  S  and  D 

for  a  1  x  1  matrix  C.  Assume  S  and  D  have  been  found  for  a  k  x  k  matrix  C. 

Now  augment  C  by  another  row  and  column 
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LEGS2 


A  vector  co  ,md  a  scalar  p  arc  now  desired  such  that 


l’he  requirements  are  satisfied  by 


co 


Sd 


P  -  Q 


T 

co 


d 


The  routine  builds  the  matrix  S  by  the  above  process  with  k  =  2,  3, 
The  final  result  is  a  decomposition  of  the  augmented  matrix 


A  A  + 


^bTA 


-2 


A  b 


T 

b  b 


At  A 


VP  -v 


V°  aJ 


N. 


and  the  N -dimens ional  vector  u>  which  appears  above  is  the  solution  vector. 

Predicted  RMS  for  Next  Iteration 
T  T  T 

Given  b  b,  A  A,  A  b,  X,  n  =  total  number  of  observations 


Predicted  RMS  —  ~\J  1 

Vn 


m  m  m  r-p  rp 

b  1  b  -  2  x  1  (A  1  b)  +  x  1  (A  Ax) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
LINES 

B.  Segment 

NRTPOD  -  partials  -  least  square 

C.  Called  by  subroutines 

1.  DCITER 

2.  RADR 

3.  PUPB 

FUNCTION 

LINES  accumulates  the  number  of  output  lines  during  the  printing  of 
residuals.  If  the  line  count  exceeds  39  a  page  heading  is  printed  and  the 
count  is  re-set  to  5. 

USAGE 

A.  Calling  sequence 
CALL  LINES  (A,  NHD) 

B.  Input 

1.  COMMON 

KOUT  -  peripheral  output  tape  number 

2.  Calling  sequence 

a)  A  -  line  counter 

b)  NHD  -  head  option  (not  used) 

C.  Output 

a)  A  -  adjusted  line  counter 
SUBROUTES  USED 

A.  Library 

.  FFIL. 

.  FVIO. 

.  FWRD. 

B.  Program 
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SUBROUTINE  IDENTIFICATION 


A.  Title 


LODOBS 


B.  Segment 


PR  E  MOD 


C.  Called  by  subroutine 


PR  E  MOD 


FUNCTION 

This  is  the  main  control  for  the  observation  card  processor.  Obser¬ 
vation  cards  are  read,  biases  are  applied,  the  BCT  is  written,  and  the 
observational  data  is  printed  on  unit  KOUT. 

USAGE 


A.  Calling  sequence 


Call  LODOBS 


B.  Input 


1.  COMMON 


KOUT 

NSTAT 


CDEG 

KBCT 


TJDATE 

CKMER 


Logical  number  of  the  output  device 
Location  in  VSTR  of  the  master  sensor  table 
The  Julian  Date  at  0  hours  day  of  epoch 
Kilometers  per  earth  radius 
Degrees  per  radian 
Logical  number  of  the  BCT 


BIAS 


A  60-cell  array  composed  of  the  following 
items  taken  from  the  station  location  cards: 


BIAS  (I)  =  Station  ID  (left  adjusted  ....  BCD) 
(1+1)  =  Range  bias  (km) 

(1+2)  =  Azimuth  bias  (deg) 
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(1+3)  =  Elevation  bias  (deg) 

(1+4)  =  Range  rate  bias  (km/sec) 
(1+5)  =  Not  used 
(1+6)  =  Range  cr  (km) 

(1+7)  =  Azimuth  cr  (deg) 

(1+8)  =  Elevation  <r  (deg) 

(1+9)  =  Range  rate  cr  (km/sec) 

Up  to  0  stations  may  appear  in  BIAS. 

2.  Calling  sequence 


C.  Output 

No  output  through  COMMON  or  the  calling  sequence,  this  subrou¬ 
tine  writes  the  observation  records  on  the  BC T  binary  tape. 

D.  Error/action  messages 

If  the  observation  type  (column  26  of  the  observation  cards)  is 
not  0  or  blank,  the  following  message  is  printed: 

****  ILLEGAL  OBSERVATION  TYPE  XX  IGNORED 
If  station  ID  on  the  observation  card  does  not  match  an  ID  in  the 
BIAS  table,  the  following  message  is  printed: 

****  STATION  XX  NOT  IN  MASTER  SENSOR  TABLE 


E.  Internal  storage 


BUFF  A  50-cell  block  to  hold  1  observation 

record  on  the  BCT.  The  format  is: 


BUFF  (I)  = 

(I+D  = 

d+2)  = 
(1+3)  = 
(1+4)  = 
(1+5)  = 
(1+6)  = 
d+7)  = 


Station  ID  (BCD  .  .  .  left  adjusted) 
Time  (minutes  from  0  hours  epoch  day) 
Range  (earth  radii) 

Azimuth  (radians) 

Elevation  (radians) 

Range  rate  (earth  radii/min) 
cr  range  (earth  radii) 

<r  azimuth  (radians) 
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(1+8)  =  c r  elevation  (radians) 

(1+9)  =  <t  range  rate  (earth  radii/min) 

for  5  observations. 


LODOBS 


EBSIZE  The  size  of  the  observation  record  on  the  BCT 

TEMP  A  16-cell  array  to  hold  the  observation  card 

information  as  output  from  OBSRD 
TR  The  end  of  observation  indicator  ENDbbb 

(BCD) 

SUBROUTINES  USED 


A. 

Library 

.  FBLT. 

.  FRWT.  .  FWRD. 

.  FCNY. 

.  FVIO. 

. FEFT. 

.  FWLR. 

.  FFIL. 

.  FWRB. 

B. 

Program 

OBSRD 

Reads  the  observation  cards 

TIME 

Converts  Gregorian  Date  to  Julian  Date 

EQUATIONS 


5-173 


LODOBS 


LODOBS 


Figure  5-23.  LODOBS  Flow  Diagram 
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LODOBS 


Figure  5-23. 


LODOBS  Flow  Diagram  (Continued) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
LODOBS 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 
DPR  OS 

FUNCTION 


The  function  is  to  control  the  logic  flow  in  loading,  storing,  sorting, 
and  printing  the  observations  to  be  used  in  the  differential  correction. 

USAGE 

A.  Calling  sequence 
CALL  LODOBS 

B.  Input 

1.  Blank  COMMON 

MT 
KOUT 
CKMER 

CDEG 

COMLST 

PREFLG 

TEPOCH 

2.  Labeled  COMMON 
/TEMP/ 

TEMP  Temporary  storage 

/ OBSTR/ 

u  Temporary  storage  used  as  a  buffer  for 

a  fixed  number  of  observations 

3.  Calling  sequence 


Observations  tape  (symbolic  tape  no.  ) 
Symbolic  output  tape  (print) 

Conversion  from  earth  radii  to 
kilometers  (km/e.  r.  ) 

Conversion  from  radians  to  degrees 
(deg/radian) 

Dimension  of  variable  storage 
(2700  for  NRTPOD) 

NRTPOD  control  flags  -  columns  31-40 
on  the  JDC  card) 

Epoch  time,  minutes  from  midnight 
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Output 

1.  Blank  COMMON 


NMBER 


Counter  on  the  number  of  observations 


2.  Labeled  COMMON 

3.  Calling  sequence 

Error/action  messages 

1.  Off-line  comment 

"OBSERVATIONS  OVERFLOWED  COMMON,  ERROR.  » 

2.  On-line  comment 

3.  Action 

Continues  processing  observations,  assuming  all  observa¬ 
tions  are  presorted. 


SUBROUTINES  USED 


A.  Library 


MOD 


B.  Program 


BCDOBS 
OB  SIN 


CLTIME 


OBSSRT 


WE  OFT 


WRTOBS 


Reads  observation  cards  one  at  a  time 
Applies  sensor  biases,  if  any,  and  scales 
observation  data  and  weights  (<r's)  to 
internal  units  and  moves  this  data  from 
temporary  storage  to  permanent  storage 
Sorts  observations  timewise  with  respect 
to  the  number  of  days  from  1950.  0  to  the 
day  of  epoch 

Computes  the  calendar  date  given  the 
minutes  from  midnight,  day  of  epoch 
Writes  the  observations  on  an  inter¬ 
mediary  observations  tape  (MT) 

Writes  an  end-of-file  record  on  the 
observations  tape  (MT ) 
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Figure  5-24.  LODOBS  Flow  Diagram 
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LODOBS 


) 


Figure  5-24.  LODOBS  Flow  Diagram  (Continued) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
LODSEN 

B.  Segment 
PR  E  MOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 

This  is  the  main  control  for  the  sensor  card  processor.  Station 
location  cards  are  read  and  printed,  the  master  sensor  table  is  formed, 
and  the  BIAS  table  is  generated. 


USAGE 


A.  Calling  sequence 


Call  LODSEN 


B.  Input 


1.  COMMON 


KOUT 

VSTR 

NSTAT 

CDEG 


Logical  number  of  printed  output  device 
Variable  storage  array 

Location  of  master  sensor  table  in  VSTR 
Degrees  per  radian 
Meters  per  earth  radii 
Kilometers  per  earth  radii 


CMTER 

CKMER 


2.  Calling  sequence 


C .  Output 
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LODSEN 


D.  Error/action  messages 

If  more  than  six  unique  station  ID's  are  processed,  the  following 
message  is  printed: 

NO  ROOM  IN  MASTER  SENSOR  TABLE  FOR 
STATION  XX  .  .  .  CARD  IGNORED 

E.  Internal  storage 

TEMP 

END 

FIRST 
ERROR 

SUBROUTINES  USED 

A.  Library 
.  FCNV.  .  FSLO. 

.  FFIL.  .  FVIO. 

B.  Program 
SENIN 
SENRD 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

SIGMH  4-cell  array  containing  the  standard  deviation 

in  range  (earth  radii),  azimuth  (radians), 
elevation  (radians),  and  range  rate  (earth 
radii/min)  for  the  first  station  in  the  master 
sensor  table.  This  station  will  usually  be 


Build  master  sensor  table 
Read  sensor  cards 


Used  to  transmit  the  data  from  the  sensor 
cards  from  routine  SENRD 
BCD  indicator  to  detect  station  ID  of  END 
which  terminates  sensor  card  processing 
Not  used 

Error  indicator  from  subroutine  SENIN  indi¬ 
cating  that  the  master  sensor  table  is  full 


.  FWRD. 
.  FXEM. 
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Millstone  Hill,  although  it  may  be  any  arbi¬ 
trary  station.  When  running  MHESPOD,  the 
cr  *s  for  the  observations  from  DAP  (assumed 
to  be  observations  from  Millstone)  will  be 
assumed  in  SIGMH. 


/BIAS/ 


A  60-cell  array  containing  station  information 
for  1-6  stations,  the  format  is: 


BIAS 


BIAS  (I)  =  ID  (left  adjusted  .  .  .  BCD) 
(1+1)  =  Range  bias  (km) 

(1+2)  =  Azimuth  bias  (deg) 


1+1,  .  .  ,  6  (1+3)  =  Elevation  bias  (deg) 


(1+4)  =  Range  rate  bias  (km/sec) 
(1+5)  =  Not  used 
(1+6)  =  Range  cr  (km) 

(1+7)  =  Azimuth  cr  (deg) 

(1+8)  =  Elevation  cr  (deg) 

(1+9)  =  Range  rate  cr  (km/sec) 


Taken  from 
sensor  cards 
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Figure  5-25.  LODSEN  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
LODSEN 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutines 
DPROS 

FUNCTION 

The  function  is  to  clear  out  sensor  and  observation  temporary 
storage  and  to  control  the  logic  flow  in  the  loading,  converting,  and  com 
pacting  of  sensor  data. 

USAGE 

A,  Calling  sequence 
CALL  LODSEN 

B.  Input 

1.  Blank  COMMON 
CKMER 

CDEG 

COMLST 

KOUT 
NS  TAT 

NSSTB 

PREFLG 

2.  Labeled  COMMON 
/iNPP/ 

NDTMP  Counter  on  DTMP  buffer  for  biases  and 

weights  by  station 

DTMP  Buffer  storage  for  biases  and  weights  by 

station 


Conversion  from  earth  radii  to 
kilometers  (km/e.r.) 

Conversion  from  radians  to 
degrees  (deg/radian) 

Dimension  ot  variable  storage 
(2700  for  NRTPOD) 

Symbolic  output  tape  (print) 

Starting  location  in  variable  storage 
(VSTR)  of  the  master  sensor  table 
Identifies  the  starting  location  where 
station  information  concerning  weights 
and  mean  of  residuals  are  stored 
NRTPOD  control  flags  (columns  31-40 
on  JDC  card) 


3.  Calling  sequence 
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LODSEN 


C.  Output 

1.  Blank  COMMON 

NUBS  Starting  location  of  the  observation  table 

in  VSTR 

2.  Labeled  COMMON 

3.  Calling  sequence 


D.  Error/action  messages 

1.  Off-line  comment 

"SENSOR  DATA  OVERFLOWS  COMMON,  ERROR" 

2.  Action 
Calls  EXIT 


SUBROUTINES  USED 

A.  Library 
EXIT 

B,  Program 
SENRD 

SENIN 


Exit  routine 


Reads  the  sensor  cards  (3  types)  and 
builds  a  temporary  buffer  of  biases  and 
weights  by  station^ 

Scales  sensor  information  and  moves  this 
information  from  buffer  storage  to  work¬ 
ing  storage.  SENIN  also  sets  up  the 
master  sensor  table  with  correct  units 
and  values. 
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Figure  5-26.  LODSEN  Flow  Diagram 
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Figure  5-26.  LODSEN  Flow  Diagram  (Continued) 
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SUBROUTINE  IDENTIFICATION 

A.  T  itle 
MABAT 

B.  Segment 

NRTPOD 

PREMOD 

C.  Called  by  subroutine 
PRAUPD 

FUNCTION 

The  function  is  to  compute  R*  =  URU^,  where  U  is  an  N1  x  N2  full 
matrix  and  R  is  an  N2  x  N2  lower  triangular  matrix.  The  result,  R*, 
will  be  a  N1  x  N1  lower  triangular  matrix. 

USAGE 

A.  Calling  sequence 

CALL  MABAT  (U,  R,  RS,  14,  15) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

U 
R 

14 

15 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

RS  Starting  location  of  the  R*  matrix 

D.  Error/action  messages 


Starting  location  of  the  U  matrix 
Starting  location  of  the  R  matrix 

Matrix  RS  is  14  by  14  lower  triangular 

Matrix  R  is  15  by  15  lower  triangular 
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SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 

MATCH 


B.  Segment 

MHESPOD 

NRTPOD 

C.  Called  by  subroutine 
PARSET 


SSTB 

SENIN 


NRTPOD  segement  only 


FUNCTION 


Performs  a  logical  comparison  of  two  floating  point  variables. 
USAGE 

A.  Calling  sequence 

C  =  MATCH  (A,  B)  (FUNCTION  SUBPROGRAM) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

A,  B  variables  to  be  compared 

C.  Output 

1.  COMMON 

2.  Calling  sequence  (function  subprogram) 

C  =  0  if  A  =  B 
=  1  if  A  /  B 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MATPT 

B.  Segment 
NRTPOD 
PREMOD 

C.  Called  by  subroutine 

PRA  UPD 
PRTATA 
APPLY 

FUNCTION 

To  print  a  lower  triangular  matrix  of  dimension  N2,  with  the  first 
element  at  A  (Nl).  A  fixed  or  floating  point  print  format  is  optional. 


USAGE 


A.  Calling  sequence 

CALL  MATPT  (A,  Nl,  N2,  N3 ) 


B.  Input 

1.  COMMON 


TEMP 

KOUT 


Temporary  storage 
Symbolic  output  tape 


2.  Calling  sequence 


A 

Nl 

N2 

N3 


Lower  triangular  matrix  to  be  printed 
First  element  stored  at  A  (Nl) 
Dimension  of  matrix  A 
Flag  to  indicate  desired  print  format 


N3  =  0  Prints  using  floating  point  format 
N3  0  Prints  using  fixed  point  format 


C.  Output 

1.  COMMON 


2.  Calling  sequence 


D.  Error/action  messages 
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SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MOVEVS 

B.  Segment 
NRTPOD 

C.  Called  by  subroutines 
UBSGET 

FUNCTION 

This  subroutine  moves  the  next  observation  set  from  variable  storage 
to  working  storage  (PUBS).  The  weights  (cr's)  of  the  observations  are 
moved  into  the  sigma  working  storage  (PSIG). 


USAGE 


A.  Calling  sequence 
CALL  MOVEVS  (J) 


B.  Input 

1.  COMMON 

VSTR  (NUBS)  Array  containing  observation  sets 


2.  Calling  sequence 


J 


Index  for  the  next  observation  set  to  be 


picked  up  out  of  array  VSTR  (NUBS) 


C.  Output 

1.  COMMON 


PUBS  (1) 
PUBS  (2) 


Sensor  ID 

Observation  time,  min  from  0** 1 2  day  of 
epoch 

Range  (e .  r  .  ) 

Azimuth  (rad) 

Elevation  (rad) 

Range  rate  (e.r./min) 

Observation  type 
°-R  (e.r.) 
o’  a  (rad) 

<J"E  (rad) 

<r  R  (e.r./ min) 


PUBS  (3) 
PUBS  (4) 
PUBS  (5) 
PUBS  (6) 
PUBS  (7) 
PSIG  (1) 
PSIG  (2) 
PSIG  (3) 
PSIG  (4) 
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MOVEVS 


2.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MTOC 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
DPRLM 

FUNCTION 

To  update  a  set  of  Smithsonian  mean  elements,  convert  to  osculating 
and  then  to  Cartesian.  It  also  calls  JTOC  to  convert  the  Julian  date  to 
calendar  date. 

USAGE 

A.  Calling  sequence 

Call  MTOC  (TNOMX,  SMELM,  DELT) 


Input 

i. 

COMMON 

DAYINT 

Integer  portion  of  Julian  date 

DAYFRC 

Fractional  portion  of  Julian  date 

CJ2 

J2  earth  harmonic 

C2PI 

2tt  radians 

CPI 

t t  radians 

KOUT 

Output  tape  unit 

CMU 

p  ER^/min^ 

CKMER 

Conversion  from  kilometers 

to  earth  radii 

2. 

Calling  sequence 

SMELM 

21 -word  vector  containing  the  Smithsonian 

mean  elements  and  their  time  derivatives  for 
updating  and  conversion  to  osculating.  See 
Table  I. 
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Table  I 


Location 

Element 

Units 

SMELM  (1) 

a 

earth  radii 

(2) 

e 

(3) 

i 

r  adians 

(4) 

n 

radians 

(5) 

CO 

radians 

(6) 

M 

radians 

(7) 

a 

er /day 

(8) 

e 

--/day 

(9) 

i 

rad/day 

(10) 

6 

rad/day 

(ID 

(1) 

rad/day 

(12) 

n 

rad/day 

(13) 

a/ 2 

er / day^ 

(14) 

e/2 

--/day^ 

(15) 

-- 

(16) 

n/2 

rad/ day^ 

(17) 

co  /2 

rad/day^ 

(18) 

n/2 

rad/day^ 

(19) 

ii/6 

rad/day^ 

(20) 

*n/ 24 

rad/day4 

DELT 


C .  Output 

1.  COMMON 

DYEAR 

DMNTH 


Time  to  epoch  in  days,  should  be  greater  than 
10"®  or  else  set  to  zero  identically 


Calendar  year  -  1900 
Calendar  month 
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MTOC 

DDAY 

Calendar  day 

MCOM  (54) 

DHOUR 

Hour 

MCOM  (55) 

DMIN 

Minute 

MCOM  (56) 

DSEC 

Se  cond 

MCOM  (57) 

2.  Calling  sequence 

TNOMX 

6 -word  vector  containing  x,  y,  z, 

x,  y,  z  in 

kilometers  and  kilometer  s  /  se  cond 

TNOMX(l) 

x  kilometers 

TNOMX(2) 

y  kilometers 

TNOMX(3) 

z  kilometers 

TNOMX(4) 

x  kilometers/  second 

TNOMX(5) 

y  kilometers/  second 

TNOMX(6) 

z  kilometer  s  /  se  cond 

D.  Error/action  messages 

E  FAILED  TO  CONVERGE 

THE  VALUE  OF  E  IS _ E _ ,  THE  FLAG  IS_ 

This  message  occurs  if  the  iteration  for  L  has  failed  to  converge 
after  50  iterations.  The  flag  =  0  indicates  the  iteration  failed  for  con¬ 
version  to  osculating  of  the  mean  elements.  The  flag  =  1  indicates  the 
iteration  failed  for  conversion  to  Cartesian  of  the  osculating.  The  pro¬ 
gram  proceeds  normally. 

SUBROUTINES  USED 

A.  Library 
ABS 
SIN 
COS 
ATNQ 
SORT 

B.  Program 

PIMOD  Takes  principal  value  of  angle  between  0  and 

2tt 
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MTOC 


DLSTV  Computes  the  differentials  used  in  converting 

from  mean  to  osculating  and  osculating  to 
mean 

JTOC  Converts  Julian  date  to  calendar  date 


EQUATIONS 


Given  a  ,  e  ,  1  ,  f2  ,  oj  ,  M 

m  mm  m  m  m 

K-2  5 


1.  Compute  E  using 


Ei  =  17 


£  =  E  + 

n+1  n 


M  -  E  +  e  sin  E 
m  n  m _ n 

1  -  e  cos  E 
m  n 


2.  Compute  true  anomaly,  v 


cos  E  -  e 


m 


cos  v  = 


1  -  e  cos  E 
m 


sin  v 


-J-L 


e  sin  E 
m 


1  -  e  cos  E 
m 


3.  Compute  radius  vector 

r  =  a  _  (1.  0  -  e  cos  E) 

^-25 

4.  Compute  orbital  semi-parameter 


p  =  a  (1  -  e  ) 

m  m  _  m 

K-t5 


5.  Obtain  6'b  from  DLSTV 
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MTOC 


6.  Compute  a 


m 


m 


K-25 


m 


1  -  A0/p  (1  -  3/2  sir/  i  )  \j  1  - 

2  m  V  m 


7.  Compute  osculating  elements 


a  =  a  +  6  (a  ,  e  ,  i  ,  S2  ,  ^  ,  M  ) 

os  m  a  mT_  --mm  m  m  m 

m  K-25 


e  =  e  +6  (a  ,  e  ,  i  ,  S7  ,  ^  ,  M  ) 

os  m  e  mT_  ^  r  mm  m  m  m 

m  K-25 


i  l  "hft.  (a  ,  c  ,  i  ,  $2  »  u*  ,  ) 

os  m  i  mT_  .  _  mm  m  m  m 

m  K-25 


ft  _  ~  &  +  ft  (a  »  e  ,  i  ,  q  ,  u>  ,  M  ) 

°s  m  $2  mT,  ^  -  m  m  m  m  m 

m  iv  -  z  d 


W  -  w  +5  (a  ,  e  ,  I  ,  u  ,  u,  ,  M  ) 

os  rn  i->m  ^5  m  ni  m  m  in 


M  -  M  +  f *  ( a  ,e,i,s7  ^ 

08  m  Mm  mK-25  m  111  m>  m>  rn) 


8.  Convert  to  Cartesian 

a.  Obtain  E  and  v  as  above 
u  =  v  I  w 
i  =  u  +  12 

os 


J  =  u  -  n 

r  os 


b.  U  1/2  ((1  +  cos  i  )  cos  I  -f  (1  -  cos  i  )  cos  l  ) 

x  os  os  r 


U  =  1/2  ((1  +  cos  i  ) 

y  os 


U  =  sin  u  sin  i 
z  os 
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M  l‘OC 


MTOC 


V  =  -1/2  ((1  +  cos  i  )  sin  I  +  (1  -  cos  i  ) 

x  os  os 

V  1/2  ((1  +  cos  i  )  cos  I  +  (1  -  cos  i  ) 

y  os  os 

V  -  cos  u  sin  i 

t.  os 

r  =  a  *  (1  -  e  *  cos  E) 
os  os 

r  -  (  J a  )  (c  sin  E)/ r 

v  os  os 

rv  (  v/>a  )  (  7l  -e  2)/r 

v  l)S  v  OS 


rU 


X 

rU 

y 

rU 

z 

rU  + 

rvV 

X 

X 

rU 

+  rvV 

y 

rU 

Z 

+  rvV 

sin  I  ) 

cos  t  ) 
r 
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NRTPOD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
NRTPOD 

B.  Segment 

NRTPOD  -  INPUT  PROCESSOR 

C.  Called  by  subroutine 

Main  driver  for  NRTPOD  control 

FUNCTION 


Main  control  for  NRTPOD 
USAGE 


A.  Calling  sequence 


B.  Input 

1.  COMMON 

BLK3,  BLK4  Blank  COMMON  blocks 

Variable  storage 
Lunar-solar  ephemeris  cells 
Temporary  storage 
JDC  options  flag  columns  31-40 
JDC  options  flag  columns  41-50 
JDC  options  flag  columns  51-60 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 


//BLK1,  BLK2, 

/vstr/ 

/ephcom/ 

/temp/ 

PREFLG 
DCF  LG 
PSTFLG 


D.  Error/action  messages 
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NRTPOD 


NR  T  POD 


SUBROUTINES  USED 

A.  Library 

B.  Program 

INPUT 

TRJPRO 

EQUATIONS 

None 
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Figure  5-27.  NRTPOD  Flow  Diagram 


OBSIN 


OBSIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
OBSIN 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 


LODOBS 


FUNCTION 

Function  is  to  apply  sensor  biases,  if  any,  scale  observation  data  and 
weights  (cr  's)  to  internal  units,  and  move  this  data  from  temporary  storage 
to  permanent  storage  (Z).  This  routine  overrides  the  weights  input  on 
sensor  cards  by  the  weights,  if  any,  input  on  the  observation  cards. 


USAGE 


A.  Calling  sequence 


CALL  OBSIN  (Z,  ISTART,  NOB) 
B.  Input 


1.  Blank  COMMON 


CKMER 

CDEG 

KOUT 

NSSTB 


NSTAT 

TJDATE 


'(km/e,  r.  ) 

(Deg/radian) 

Output  type  number 

VSTR  pointer  for  station  mean  and  RMS 
information 

VSTR  pointer  for  master  sensor  table 
Julian  date  of  midnight,  epoch  day 


2.  Labeled  COMMON 


/temp/ 

TEMP  fl) 
TEMP  (2-7) 


Station  ID 

Time  of  observation  in  year,  month, 
day,  hour,  minute,  second 
R  range 

A  azimuth  (rad) 

E  elevation  (rad) 

R  range  rate  *(e.  r.  /min) 


TEMP  (9) 
TEMP  (10) 
TEMP  (11) 
TEMP  (12) 
TEMP  (8) 
TEMP  (13) 
TEMP  (14) 
TEMP  (15) 
TEMP  (16) 


type 


standard  deviation  in  range  (e.  r.  ) 
standard  deviation  in  azimuth  (rad) 
0V  standard  deviation  in  elevation  (rad) 
Standard  deviation  in  range  rate 
(e.  r.  /min) 
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/iNPP/ 

NDTMP 

Counter  on  the  DTMP  buffer  for  biases 
and  weights  by  station 

DTMP 

/vstr/ 

Buffer  storage  for  station  and  observa¬ 
tion  biases  along  with  their  respective 
weights  (tr 's ) 

VSTR 

Variable  storage  array 

3. 

Calling  sequence 

ISTART 

Starting  location  of  Z 

Output 

1. 

COMMON 

2. 

Calling  sequence 

Z  (ISTART) 

Station  ID 

Z  (ISTART  +1) 

Time  from  epoch  (min) 

Z  (ISTART  +2) 

R,  range  (e.  r.  ) 

Z  (ISTART  +3) 

A,  azimuth  (rad) 

Z  (ISTART  +4) 

E,  elevation  (rad) 

Z  (ISTART  +5) 

R,  range  rate  (e.  r.  /min) 

Z  (ISTART  +6) 

Type 

Z  (ISTART  +7) 

standard  deviation  in  range  (e.  r.  ) 

Z  (ISTART  +8) 

(r^»  standard  deviation  in  azimuth  (rad) 

Z  (ISTART  +9) 

‘’’E*  standard  deviation  in  elevation  (rad) 

Z  (ISTART  +10) 

standard  deviation  in  range  rate 
(e.  r.  /min) 

NOB 

Flag  to  indicate  error  in  observation  ID. 
=0  ID  found  in  master  sensor  table. 

/0  ID  not  found  in  master  sensor  table. 


D.  Error/action  messages 

1.  Off-line  comment 

"ERROR  IN  OBSERVATION  ID _ " 

2.  On-line  comment 

3.  Action 

Set  NOB  flag,  return  to  calling  program. 


OBSIN 


OBSIN 


SUBROUTINES  USED 


A.  Library 


B.  Program 


TIME 


Computes  Julian  date  and  minutes  from  midnight  of 
epoch  day 
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OBSIN 


OBSIN 


Figure  5-28.  OBSIN  Flow  Diagram 
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OBSRD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
OBSRD 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

To  read  an  observation  card  in  the  MHESPOD  format.  (See  card 
format  description  below.  ) 

USAGE 

A.  Calling  sequence 
Call  OBSRD  (A) 

B.  Input 

1.  COMMON 

KIN  Logical  number  of  the  input  device 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

A  A  16 -cell  unit  containing  the  following 

information  from  the  observation  card: 

A(l)  Station  ID  (left  adjusted  .  .  .  BCD) 
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OBSRD 


A(2) 

Year  number  -  1900 

A(3) 

Month 

A(4) 

Day 

A(5) 

Hour 

A(6) 

Minute 

A(7) 

Second 

A(8) 

Type  (  =  0  ) 

A(9) 

Range  (km) 

A(10) 

Azimuth  (deg) 

A(  1 1 ) 

Elevation  (deg) 

A(12) 

Range  rate  (km/  sec) 

A(13) 

cr  range  (km) 

A(14) 

c r  azimuth  (deg) 

A(15) 

cr  elevation  (deg) 

A(16) 

cr  range  rate  (km/sec) 

D.  Error /action  messages 

E.  Internal  Storage 

T  A  4-cell  array  to  hold  the  exponent  for  the  c r 

entries  on  the  observation  cards.  The  order¬ 
ing  is  range,  azimuth,  elevation,  range  rate. 

SUBROUTINES  USED 

A.  Library 

.  FCNV.  .  FRTN.  .  XP3. 

.  FRDD.  .  FVIO. 

B.  Program 

EQUATIONS 

The  sigmas  for  each  data  type  are  given  as  three  columns  on  the 
observation  cards.  Two  columns  are  used  to  specify  the  sigma  as  an 
integer  XIO-^,  the  third  column  is  a  positive  exponent  of  10  to  be  used 
as  a  scaling  factor. 
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OBSRD 


If  the  integer  is  I,  the  scaling  factor  S  then  cr 
CARD  FORMAT 


I  x  10 


( s  —  5 ) 


Column 

Description 

1-3 

Station  ID 

4-6 

Not  used 

7-8 

Year  -  1900 

9-10 

Month 

11-12 

Day 

13-14 

Hour 

15-16 

Minute 

17-25 

Second  (Decimal  assumed  between  19  and  20  if 
omitted) 

26 

Type  (=  0) 

27-34 

Azimuth  (deg)  .  .  .  decimal  assumed  between  29  and 

30  if  omitted 

35-36 

.5 

cr  integer  part  x  10  azimuth 

37 

cr  scaling  factor  .  *  .  power  of  ten  (0  -  9) 

38-46 

Elevation  (deg)  .  .  .  decimal  assumed  between  41 
if  omitted 

and  42 

47-49 

cr  elevation  in  packed  format  (see  azimuth  above) 

50-62 

Range  (km)  .  .  .  decimal  assumed  between  58  and 
if  omitted 

59 

63-65 

cr  range  in  packed  format 

66-75 

Range  rate  (km/sec)  .  .  .  decimal  assumed  between 

70  and  71  if  omitted 

76-78 

cr  range  rate  in  packed  format 

79-80 

Not  used 
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OBSSRT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
OBSSRT 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

Function  is  to  sort  the  observations  time  wise  with  respect  to  epoch 
time.  All  observations  taken  before  epoch  are  sorted  with  respect  to 
epoch  ahead  of  observations  taken  after  epoch. 

USAGE 


A. 


B. 


Calling  sequence 

CALL  OBSSRT  (A,  ISTART,  IFINAL) 
Input 


1. 

Blank  COMMON 

TEPOCH 

Time,  in  minutes  from  0  hours,  day 
of  epoch;  the  time  of  the  initial  conditions 
of  the  trajectory 

DBASE 

Number  of  days  from  1950.  0  to  day  of 
epoch 

DHOUR 

Number  of  hours  from  0  hours,  day  of 
epoch;  epoch  hours 

DMIN 

Epoch  minutes 

DSEC 

Epoch  seconds 

2. 

Labeled  COMMON 

3. 

Calling  sequence 

A 

Array  of  storage  to  be  time  sorted 

ISTART 

Identifier  for  starting  location  of  array 
in  A  storage 

IFINAL 

Identifier  for  ending  location  of  array  in 

A  storage 
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OBSSRT 


C.  Output 

1.  Blank  COMMON 

2.  Labeled  COMMON 

3.  Calling  sequence 
A  -  Sorted  array 

D.  Error/action  mes sages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 


A.  Title 
OUTER 

B.  Segment 
MHESPOD 
PREMOD 
NRTPOD 

C.  Called  by  subroutine 

BODY 

DRAG 

VAREQ 

FUNCTION 


Function  is  to  compute  the  "outer  product,"  i.  e.  ,  the  3x3  matrix 
product,  which  results  when  a  3  x  1  column  vector  is  multiplied  times  a 
1x3  row  vector. 

USAGE 

A.  Calling  sequence 

Call  OUTER  (A,  I,  B.  J,  C) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

A  Address  of  the  3x1  column  vector  array 

I  Location  of  first  element  in  A 

B  Address  of  1  x  3  row  vector  array 

J  Location  of  first  element  in  B 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

C  Address  of  3  x  3  array  to  which  the  outer  product 
is  added 

D.  Error/action  messages 
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I 


OUTER 


OUTER 


SUBROUTINES  USED 

A.  Library 

B.  Program 

EQUATIONS 


None 


PAGE1 


PAGE  1 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PAGE  1 

B.  Segment 
MHESPOD 

C.  Called  by  subroutines 
MESPOD 

RADR 

FUNCTION 

Accumulates  five  (5)  residuals  and  outputs  these  residuals  on  the 
ADT  tape.  Each  residual  is  written  on  the  ADT  in  the  following  format: 

ID,  t,  AR,  A  A ,  AE,  AR,  <p,  A,  h,  R/R 


USAGE 

A.  Calling  sequence 
CALL  PAGE1  (LAST) 

B.  Input 

1.  COMMON 

/MESCfDM/ 

CWE 

IRESFG 

KADT 
PRESD 
PUBS 
PUI 
PW  DTI 

TALFAG 

TALT 

TRAJX  (1) 

(2) 

(3) 

(4) 

(5) 

(6) 


Earth's  rotational  rate 

Flag  for  writing  residuals  on  ADT 
=  0  don't  write  residuals 
=/  0  write  residuals 

ADT  tape  number 

Reasiduals  (measured  -  computed) 
Sensor  ID,  time,  R,  A,  E,  R  table 
Vector  (up  u^,  u^) 

Vector  (w  ^ ,  w^,  w^) 

a  for  midnight,  day  of  epoch 
a^gle  between  Greenich  and  vernal 
equinox 

Altitude  of  vehicle  (ft) 
x 

y 

z 

X 

y 

z 
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PAGE1 


=  0  indicates  not  last  iteration 
/  indicates  last  iteration 


Temporary  storage 

Buffer  to  accumulate  5  residuals 


D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 
ATNQ 
PIM0D 

EQUATIONS 


2.  Calling  sequence 
LAST 

C.  Output 

1.  C0MM0N 
TEMP 

/  RESBUF/ 

2.  Calling  sequence 


'p  =  tan 


-1 


7~2  2x1/2 

[x  +y  )  ' 


R  =  u  •  w 


5-220 


PAGE1 


Figure  5-29.  PAG1  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
PAG  El 

B.  Segment 

NRTPOD  -  partials  -  least  square 

C.  Called  by  subroutines 
RADR 


FUNCTION 


PAGE1  converts  a  line  of  residuals  to  external  units  and  prints  it. 
USAGE 


A.  Calling  sequence 
Call  PAG  El 


B.  Input 


1.  COMMON 

CKMER 

CDEG 

KOUT 

TEPOCH 

PUBS 

PDELFG 

PRESDT(9) 

IRCNT(4) 


Kilometers  per  earth  radius 
Degrees  per  radian 
Peripheral  output  tape 

Minutes  from  midnight  day  of  epoch  to  epoch 

Storage  for  observation  data 

BCI  flag  for  rejection  type 

Residuals  in  internal  units 

Residual  number  for  R,  A,  E,  R 


2.  Calling  sequence 


C.  Output 

One  line  of  formated  residuals  in  R,  A,  E,  R,  U,  V,  W,  VM, 
BETA 


SUBROUTINES  USED 

A.  Library 
.  FCNV. 

.  FFIL 

.  FVIO. 

.  FWRD. 

B.  Program 
RMAX 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
PAROUT 

B.  Segment 

NRTPOD  -  partials  -  least  square 

C.  Called  by  subroutine 
RADR 

FUNCTION 

PAROUT,  given  right  ascension  of  the  sensor  and  position  and  veloc¬ 
ity  of  the  vehicle,  computes  residuals  in  an  up,  down,  cross  coordinate 
system. 

USAGE 


A.  Calling  sequence 
CALL  PAROUT 


B.  Input 


1.  COMMON 

TRAJX(6) 

PUBS(7) 

PCSALF 

PSNALF 

PCMR 

PWI(3) 


C.  Output 

PWI(3) 

PWDTI(3) 

PRESDT(5) 

(6) 

(?) 

(8) 

(9) 


State  vector  of  vehicle  at  observation  time 
Observation  data 

Cos  a,  a  =  station  right  ascension 
Sin  a 

Computed  range  measurement 

(Wlf  W2,  W3) 

(Wj,  W2,  w3) 

(Wp  W2,  w3) 

AU 

AV 

AW  / - t - ^ - y 

yv  (Aur  +  (AV)4  +  (AW) 

P  -  out-of-plane  angle 


SUBROUTINES  USED 


1.  Library 
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PAROUT 


2.  Program 

DOT 

RADSQ 

XCROSS 

YRAE 

ASIN 


EQUATIONS 


w  =  (Wj,  W2.  W3) 


where 


Wj  =  x  c os  a  +  y  sin  a 

•  •  • 

=  x  sin  a  +  y  cos  a 


W3  =  z 


Compute  u,  v,  w  (UP,  DOWN,  CROSS) 


p  =  w  •  w 


DOWN  =  (  W  -  p 


V 


2  j  / 1  DOWN 


UP  = 


XL 


W 


CROSS  =  UP  x  DOWN 


If  range  measurement  R  not  available  use  computed  value  and  find 
vector  Y  from  subroutine  YRAE  and  Range. 


Calculate  residuals  in  UP,  DOWN,  CROSS. 
A UP  =  (Y  -  W)  •  UP 


ADOWN  =  (Y  -  W)  •  DOWN 


ACROSS  =  (Y  -  W)  •  CROSS 
Vector  magnitude  (VM) 

VM  =  |  Y  -  W  | 

and 


P  =  sin 


1 


CROSS  -  Y 
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PARSE  T 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PARSE  T 

B.  Segment 
MHESPOD 

C.  Called  by  subroutine 
MESPOD 

FUNCTION 

This  subroutine  sets  up  the  PSTAT  array  with  sensor  information 
from  the  master  sensor  table  for  a  given  sensor  number. 


USAGE 


A.  Calling  sequence 
Call  PARSET 

B.  Input 

1.  COMMON 
NSTAT 

PLSTSN 

PUBS 

VSTR 


Identifies  the  starting  location  of  the 
master  sensor  table 

Name  of  the  last  sensor  processed  by  RADR 
Current  observations  and  time  table 
Floating  point  variable  storage 


2.  Calling  sequence 


C.  Output 


1. 


COMMON 

PSTAT  (1) 
(2) 
(3) 


X. 


sensor  latitude  (rad) 
sensor  longitude  (rad) 
sensor  altitude  (e.r.) 
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PARSE  T 


PARSE  T 


(4) 

COB  <b 

(5) 

s  in  6 

s 

(6) 

a  +  X 

go  s 

(7) 

coordinates  this  sensor  in  the 

(8) 

u>38  J 

W  system  (e.r. ) 

(9) 

Code  word  (see  definition  of  IVSTR(NPRCD) 

array) 


TG  Observation  time  (adjusted  by  approximate 

time  bias  if  applicable). 

2.  Calling  sequence 


D.  Error/action  messages 

"STATION  NOT  IN  MASTER  SENSOR  TABLE" 

After  this  message  is  printed  control  is  returned  to  the  main 
sequence  and  the  next  observation  time  is  selected. 

SUBROUTINES  USED 

A.  Library 

B.  Program 
MATCH 

EQUATIONS 
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0 


PLSTSN  =  PUBS(l) 


J  =  0 


JJ  =  NSTAT  +  J 


JJ  =  JJ  +  1 


DO  42  JJJ  *  1,9 
PSTAT  (JJJ)  *  VSTR  (JJ) 
42  JJ  »  JJ  +  1 


< 


RETURN 


) 


Figure  5-30.  PARSET  Flow  Diagram 
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PARSE  T 


PARSE  T 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PARSE  T 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 

DCITER 

TRJGEN 

FUNCTION 


This  subroutine  sets  up  the  PSTAT  array  with  sensor  information 
from  the  master  sensor  table  for  a  given  sensor  number.  It  checks  to 
see  if  either  latitude,  longitude,  altitude,  or  time  biases  are  being  solved 
for  by  this  sensor  and  if  so,  updates  the  PSTAT  table  before  returning  to 
the  main  sequence. 

USAGE 


Calling  sequence 
Call  PARSET  (NOSEN) 


B.  Input 

1.  COMMON 

CBE 

CDEG 

KOUT 

NPBIS 

NPRCD 

NSTAT 

PLSTSN 

PUBS 

TG 

TMBIS 


b0  (1.  0  -  Ellipticity  of  earth) 
degrees/ radian 
Symbolic  output  tape 

Identifies  table  for  definition  of  Category  2 
variables 

Identifies  table  for  definition  of  Category  2 
variables  to  be  solved  for 

Identifies  the  starting  location  of  the  master 
sensor  table 

Name  of  the  last  sensor  processed  by  RADR 
Current  observations  and  time  array 
Time  to  integrate  to  (min) 

Current  estimate  of  time  bias  for  the  observa¬ 
tion  time  being  considered 


VSTR  (NSTAT)  Variable  storage  -  master  sensor  table. 


2.  Calling  sequence 
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PARSE  T 

C.  Output 

1. 


PARSET 


D. 


COMMON 

PSTAT(l) 

<t> 

T  s 

sensor  latitude  (rad) 

(2) 

\ 

s 

sensor  longitude  (rad) 

(3) 

h 

sensor  altitude  (e.r.) 

(4) 

COS  0 
rs 

(5) 

sin  0 
rs 

(6) 

x  4-  X 

g° 

s 

s 

(?) 

wi 

coordinates  of  this  sensor  in  the  W 

(8) 

W3S 

system  (e.r.) 

(9) 

Code  word  (see  definition  of  IVSTR  (NPRCD) 

TG 


array  in ESPOD Mathematical  and  Subroutine 
Description) 

Observation  time  (adjusted  by  approximate  time 
bias  if  applicable) 


2.  Calling  sequence 

NOSEN  Flag  to  indicate  a  sensor  not  found  in  the  mas¬ 

ter  sensor  list. 

NOSEN  =  0,  sensor  found  in  master  sensor  list. 
NOSEN  =  1,  sensor  not  found  in  master  sensor 
list. 

Error/ Action  Message 

"STATION  XX  NOT  IN  MASTER  SENSOR  LIST" 

After  this  message  is  printed,  control  is  returned  to  the  main 
sequence  and  the  next  observation  time  is  selected. 


SUBROUTINES  USED 


A.  Library 

COS 

SIN 

SORT 


B. 


Program 

MATCH 
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PAR SET 


PARSET 


Figure  5-31.  PARSET  Flow  Diagram 
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PASTOR 


PASTOR 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PASTOR 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
REJECT 

FUNCTION 


To  store  into  PDELFG  an  indicator  defining  the  rejection  of  an 
observation  in  the  differential  correction  process. 

USAGE 

A.  Calling  sequence 

CALL  PASTOR  (PDELFG,  II,  15) 

B.  Input 

1.  COMMON 

Z.  Calling  sequence 

II  index  on  PDELFG  indicating  data  type  being  tested 
11  =  1  indicates  range  residual  deletion 
II  =  Z  indicates  azimuth  residual  deletion 
11  =  3  indicates  elevation  residual  deletion 
II  =  4  indicates  range  rate  residual  deletion 

15  indicates  to  PASTOR  the  criteria  of  deletion 

15  =  1  The  observation  residual  is  to  be  deleted  by 
input  DELET  cards. 

15  =  Z  The  observation  residual  has  failed  the  K*RMS 
te  st. 

15  =  3  The  observation  residual  has  failed  the  gross 
outlier  test. 

15  =  4  The  observation  residual  is  to  be  deleted  due  to 
an  observation  weight  being  zero. 
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PASTOR 


PASTOR 


C.  Output 

1.  COMMON 


2.  Calling  sequence 

PDELFG  (II)  Array  containing  in  each  cell  either 

a)  Word  containing  M*u  indicating  the 
observation  was  deleted  by  input 
DELET  cards* 

b)  Word  containing  Mkn  indicating  the 
observation  residual  has  failed  the 
K*RMS  test. 

c)  Word  containing  MNM  indicating  the 
observation  residual  has  failed  the 
gross  outlier  N*<r  test. 

d)  Word  containing  "S"  indicating  the 
observation  was  deleted  due  to  an 
observation  weight  being  zero. 


D.  Error/Action  Messages 


SUBROUTINES  USED 

A*  Library 

B.  Program 
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PIMOD 


PIMOD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PIMOD 

B.  Segment 

PREMOD 

MJESPOD 

NRTPOD 

C.  Called  by  subroutines 

FUNCTION 

Function  is  to  get  the  positive  argument  of  an  angle  in  radians  between 
0  and  2ir. 

USAGE 

A.  Calling  sequence 
PIMOD(A) 

B.  Input 

1.  COMMON 
C2PI  2tt 

2.  Calling  sequence 

A  Angle  in  radians 

C .  Output 

1.  COMMON 

2.  Calling  sequence 

A  Positive  angle  between  0  and  2tt  in  radians 
SUBROUTINES  USED 

A.  Library 
AMOD 

B.  Program 
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POTENT 


POTENT 


SUBROUTINE  IDENTIFICATION 


A.  Title 
POTENT 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutines 


DAUX 

FUNCTION 


Function  is  to  compute  the  necessary  inputs  for  and  to  call  the  GPERT 
subroutine . 

USAGE 

A.  Calling  sequence 
Call  POTENT 

B.  Input 
1  .  COMMON 

TLIST 

TR 

TALFAG 

CWE 

2.  Calling  sequence 


Numerical  integration  working  storage 

Magnitude  of  vector  from  center  of  earth  to 
vehicle 

Right  ascension  of  Greenwich  meridian  at  mid¬ 
night  day  of  epoch 

Earth's  rotation  rate  ( radians /minute) 


C.  Output 

l  .  COMMON 

SIPH  sin  of  the  geocentric  latitude  of  the  vehicle 
COPH  cos  of  the  geocentric  latitude  of  the  vehicle 
SNALF  sin  of  the  right  ascension  of  the  vehicle 
CSALF  cos  of  the  right  ascension  of  the  vehicle 
SILA  sin  of  the  longitude  of  the  vehicle 
COLA  cos  of  the  longitude  of  the  vehicle 

2.  Calling  sequence 
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POTENT 


POTENT 


SUBROUTINES  USED 


A.  Library 


COS 

SIN 

SQRT 


B.  Program 
GPERT 
PIMOD 


EQUATIONS 


cos 


sin  0  = 


z 


X 

COS  Q  =  - 

-\TT~~z 

yx  +  y 


X  =  a  -  (a  +  a)  t) 
go  e 


COS  \  = 

cos  q  cos  (a  + 

0)  t)  + 

g° 

e 

sin  \  = 

sin  a  cos  (a  + 

a)  t)  - 

g° 

e 

sin  a  = 


I/  2  “  2 

lfx  +  y 


sin  a  sin  (a  +  cj  t) 

go  e 


cos  a  sin  (a  +  co  t) 

go  e 
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POTENT 


POTENT 


POTENT 


Figure  5-32.  POTENT  Flow  Diagram 
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PRAUPD 


PRAUPD 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
PRAUPD 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
PRUDRV 

FUNCTION 

Function  is  to  update  a  given  covariance  matrix  to  a  specified  time  t, 
and  to  print  the  resulting  matrices.  The  cbvariance  matrix  to  be  updated 
can  either  be  a  6  x  6  (a,  6,  (3,  A,  R,  v)  or  a  7  x  7  (a,  6,  P,  A,  R,  v, 
C]>A/2m).  The  updated  normal  matrix  (polar  spherical  coordinates)  and 
a  correlation  matrix  is  printed. 


USAGE 


A.  Calling  sequence 


CALL  PRAUPD 


B.  Input 

1.  COMMON 


NBDNS 


KOUT 

NPR 

NDPR 


NATA 


NR 


NSC ALE 


NDPAR1 


NRTMP 


Symbolic  output  tape  (print) 

Number  of  all  parameters  to  solve  for 
Number  of  category  1  parameters  to 
solve  for 

Starting  location  of  where  the  triangular 
ATA  is  stored  (VST R(NATA)) 

Starting  location  of  where  the  inverse 
AtA  is  stored  ( VSTR(NR)) 

Starting  location  of  the  list  of  conversion 
factors  which  convert  from  machine  to 
output  units  and  vice  versa 
Starting  location  where  the  solution  vector 
will  be  stored 

Starting  location  of  temporary  storage  for 
special  handling  of  the  R  matrix 
Starting  location  for  the  bounds  used  by 


LEGS 


TEMP 

VSTR 


Temporary  storage 
Variable  storage.  VSTR  (NR), 
VSTR  (NRTMP),  VSTR  (NBDNS)  etc 
Contains  the  position,  velocity  and 
acceleration  vectors  of  the  vehicle 


TRAJX 
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PRAUPD 


PRAUPD 


The  variational  equations  may  also  be 
present  in  TRAJX 

TZ  Indicates  if  the  solution  was  affected  by 

bounds 


2.  Calling  sequence 


C.  Output 
Off-line  print 

Sigma  and  Rho  matrix  (polar  spherical  coordinates) 
Normal  matrix  (polar  spherical  coordinates) 

D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 

B.  Program 
MATPT 

HUM  AH 
PPL  PC 
CORMAT 
MABAT 
LEGS  2 
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PRCONS 


PRCONS 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
PRCONS 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

The  functions  are  to  print  the  program  constants,  input  parameters, 
variable  storage  pointers,  lunar-solar  position  ephemerides,  if  input, 
and  the  working  storage  cells  of  blank  COMMON.  Along  with  each  quan¬ 
tity  of  off-line  print  is  an  index  showing  the  relative  location  of  that 
item  within  the  block  array. 


USAGE 


A.  Calling  sequence 
CALL  PRCONS 


B.  Input 

1.  Blank  COMMON 


KOUT 

NDAYS 


Symbolic  output  tape  number 
NAJMELIST  input  parameter  denoting  the 
number  of  days  of  lunar  solar  ephemeris 
input  data 


2.  Labeled  COMMON 


/VSTR / 
VSTR 

/EPHCOM/ 

ECOM 


Ephemeris  array  of  positions  of  the  sun 
and  moon  and  the  corresponding  2nd  and 
4th  differences 


Variable  storage  array 


/  INPP/ 
DATA 


Temporary  storage  used  by  the  input 
processor  link.  DATA  acts  mainly  as  a 
buffer  for  input  data  arrays 


3.  Calling  sequence 
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PRCONS 


Output 

1.  COMMON 


PRCONS 


C. 


2.  Calling  sequence 
D.  Error /action  messages 
SUBROUTINES  USED 

A.  Library 

B.  Program 
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PRECES 


PRECES 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRECES 

B.  Program 
PREMOD 

C.  Called  by  subroutines 
PREMOD 


FUNCTION 

To  precess  the  lunar  polar  ephemeris  data  from  the  mean  equator 
and  equinox  of  1950.0  to  the  true  equator  and  equinox  of  0  hours,  day  of 
epoch. 

USAGE 


A.  Calling  sequence 
Call  PRECES 

B .  Input 

1.  COMMON 

PPOS  A  24-cell  vector  containing  the  position  of  the 

moon  and  sun  for  the  4  days  of  the  ephemeris. 
The  order  is 


PDEL2 


PDEL4 


x 


m. 


m. 


m. 


z  Units  of  each 

g 

4  radii.  Mean 
of  1950. 


A  24-cell  vector  containing  the  second  central 

differences  for  the  ephemeris  of  the  moon  and 

sun  for  the  4  days  of  interest.  The  order  is 

2  2  2  2  2 

6  X  ,6  ym  ,  6  ,  6  xs  ,  6  ya  , 


m 


1 


1 


m 


1 


1 


1 


62z 


A  24-cell  vector  containing  the  fourth  central 

differences  for  the  ephemeris  of  the  moon  and 

sun  for  the  4  days  of  interest.  The  order  is 

4  4  4  4  4 

6  x__  ,  6  y  ,  6  z_  ,  6  xo  .  6  yc 


m 


1 


m 


1 


m 


1 


1 


1 


64  z. 
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PRECES 


PRECES 


COMMON 

TJDATE 

XJD 

KOUT 


Julian  Date  of  0  hours  day  of  epoch. 

4-cell  vector  containing  the  Julian  Date  — 
2430000.0  at  0  hours  of  each  day  of  ephemeris. 
Logical  number  of  printed  output  device. 


2.  Calling  sequence 


None 


C .  Output 


1.  COMMON 


POS(4,3,  2) 

DEL2(4,  3,  2) 
DEL4(4,3,  2) 


The  position  of  the  moon  and  sun  in  true  of  0 
hours  day  of  epoch.  Subscript  1  defines  the  4 
days  of  data,  subscript  2  defines  the  x,  y,  z 
coordinates,  and  subscript  3  defines  the  moon 
and  sun. 

The  second  differences  for  the  moon  and  sun 
ephemeris  as  defined  in  POS. 

The  fourth  differences  for  the  moon  and  sun 
ephemeris  as  defined  in  POS. 


2.  Calling  sequence 


None 


D.  Error/action  messages 


If  the  epoch  date  does  not  fall  within  the  first  and  last  days  of  the 
ephemeris  data  the  following  message  is  printed: 

****SUN-MOON  EPHEMERIS  DOES  NOT  BOUND  EPOCH. 


and  the  run  is  terminated. 
SUBROUTINES  USED 


A.  Library 

.  FVIO. 

. FPRN. 

B.  Program 
ROTRU 

EQUATIONS 

None 


EXIT 
.  FWRD. 


.  FFIL. 


Rotates  a  3 -dimensional  vector  from  mean  of  1950  to 
true  of  an  arbitrary  date 
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PRECES 


PRECES 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRECES 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 


INPUT 


FUNCTION 

To  precess  the  lunar-solar  ephemeris  input  data  from  the  mean 
equator  and  equinox  of  1950.  0  to  the  true  equator  and  equinox  of  0  hours 
day  of  epoch. 


USAGE 


A.  Calling  sequence 


CALL  PRECES 


B.  Input 

1.  Blank  COMMON 


TJDATE 

NDAYS 


Julian  date  of  0  hours,  day  of  epoch 
NAMELIST  input  parameter  denoting  the 
number  of  days  of  lunar  solar  ephemeris 
input  data 

Symbolic  output  tape  (print) 


KOUT 


2.  Labeled  COMMON 


/TEMP/ 
TEMP 
/  INPP/ 


Temporary  storage 
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PRECES 


PRECES 


TPOS 


TDEL2 


TDEL4 


A  60-cell  vector  containing  the  position  of 
the  moon  and  sun  for  NDAYS  days. 

TPOS  array  order  is 


* 


ya2* 


NDAYS 


VaNDAYS,  ZaNDAYS’  X°NDAYS’ 


y©NDAYS*  z®  NDAYS 

Units  of  earth  radii  -  Mean  of  1950. 


A  60-cell  vector  containing  the  second 
central  differences  of  the  position  ephem- 
eris  of  the  moon  and  sun  for  NDAYS  days. 
TDEL2  array  order  is 


62xa  62"  *2~  *2~  *2' 


‘1,  6  y*l.  4  *•!.  6**1,  6  y«l. 


<■2 

6  zm1> 


•  »  ^Ya  • 

aNDAYS  aNDAYS 


62z 


_  »  , 

aNDAYS  ®NDAYS  ®NDAYS 


62z 

®NDAYS 

Units  of  earth  radii  -  Mean  of  1950. 


A  60-cell  vector  containing  the  fourth 
central  differences  of  the  position  ephem- 
eris  of  the  moon  and  sun  for  NDAYS  days. 
TDEL4  array  order  is 

64jta,-  ‘“y.,-  44’m'  64x*i-  64y*r  ••• 

c  4  , 4 

,  6  x# 

NDAYS  NDAYS 

64y  ,  64z 

NDAYS  NDAYS 

Units  of  earth  radii  -  Mean  of  1950 


*  a  -  moon 
•  -  sun 
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PRECES 


PRECES 


3.  Calling  sequence 


C.  Output 

1.  Blank  COMMON 


2. 


Labeled  COMMON 

/  EPHCOM/ 
POS(10,  3,  2) 


DEL2(10,  3,2) 

DEL4(10,  3,  2) 


The  positions  of  the  moon  and  sun.  The 
first  subscript  defines  the  days  of  data, 
the  second  subscript  defines  the  x,  y,  z 
coordinates,  and  subscript  3  defines  the 
moon  and  sun. 

Units  of  earth  radii  —  true  of  0  hours,  day 
of  epoch. 

The  second  central  differences  for  the 
lunar-solar  ephemeris  as  defined  in 

POS. 

The  fourth  central  differences  for  the 
lunar-solar  ephemeris  as  defined  in 
POS. 


3.  Calling  sequence 


D.  Error/action  messages 

1.  Off-line  comment 

"****SUN-MOON  EPHEMERIS  DOES  NOT  BOUND  EPOCH" 

2.  On-line  comment 

3.  If  the  epoch  date  does  not  fall  within  the  first  and  last  days  of 
the  lunar -solar  ephemeris  data,  the  off-line  comment 
mentioned  above  is  printed  and  the  run  is  terminated  with  a 

CALL  EXIT. 


5-249 


PRECES 


PRECES 


SUBROUTINES  USED 


A.  Library 


B.  Program 

ROTRU 


Rotates  a  3-dimensional  vector  from 
mean  of  1950  to  true  of  an  arbitrary  data 
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PRELIM 


PRELIM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRELIM 

B.  Segment 
MHESPOD 
PREMOD 
NRTPOD 

C.  Called  by  subroutine 
RADR 

FUNCTION 


The  function  is  to  calculate  preliminary  quantities  for  the  formulation 
of  residuals  and  partial  derivatives  of  observation  with  respect  to  solution 
parameters. 


USAGE 

A. 

Calling 

sequence 

Call  PRELIM 

B. 

Input 

1.  COMMON 

a. 

PSTAT(4) 
PSTAT(5 ) 
PSTAT(6) 
PSTAT(7 ) 
PSTAT(8) 

Cos  4>* 

Sin 

ago  +  K  (rad) 
v/js  (e.  r.  ) 

Wjs  (e.  r.  ) 

b. 

PUBS(l) 

PUBS(  6) 

T  (min) 

A  (e.  r.  /min) 

c . 

TRAJ(l) 

TRA  J(2 ) 

TRA  J(3 ) 

TRAJ  (4) 

TRA  J(5 ) 
TRAJ(6) 
TRAJ(IO) 

X 

y 

z 

X 

y 

z 

>  TR  AJX(57 )  =  partials  of  TRAJ(l-6) 
with  respect  to  Pi,  i  =  1,  NDPR 

d. 

NDPR 

Number  of  all  differential  plus  initial 
parameters  to  solve  for  (Category  1) 

e. 

TEMP 

Temporary  storage 

f. 

CWE 

Earth's  rotational  rate 

2.  Calling  sequence 
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Output 

1.  COMMON 

a. 

PCM  R 

R  =  computed  slant  i 

b. 

PCSA 

Cos  A 

c 

c. 

PCSALF 

Cos  (o  ] 

d. 

PCSE 

Cos  E 

e. 

PRSUB1 

Ri  =  '? 

f. 

PSNA 

Sin  A 

r 

g- 

PSNALF 

Sin  (c 

h. 

PSNE 

Sin  E 

i. 

PUDTI 

Vector  -Uj,  \n  ,  u^) 

j- 

PUI 

Vecto'  U|,  u?,  u^) 

k. 

PV 

ro 

• 

1. 

PVI 

Vectoi  -Vj,  v^,  v  ) 

m. 

PWDTI 

Vector  i\v^,  w^,  w^) 

n. 

PWDTPP 

Partial  derivatives 

o. 

PWI 

Vector  (w^,  w^,  w^) 

P- 

PWPP 

Partial  derivatives 

2.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 

COS 

SIN 

SQRT 

B.  Program 


EQUATIONS 

The  computed  orbit  positions  (x,  y,  z)  and  station  positions  (<£*,  X,  h) 

are  processed  to  produce  geocentric  and  topcentric  coordinates  ol  the 

vehicle  in  an  Earth-fixed  coordinate  system.  Right  ascensions  of  the  station 

for  times  of  observations  t.  are 

1 


Q. 

1 


+  \)  +  u> 

e 
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PRELIM 


PRELIM 


Geocentr  c  position  and  velocity  of  the  vehicle  in  Earth-fixed  coordinates 
are 


r*; 


cos  a.  sin  a. 
1  1 


•sin  Q .  cos  a 

i  i 


cos  a  sin  a 


-  s  in  Q  c  os  Q 


0 


x  +  u  y 
e  7 


y 

* 


U>  X 

e 


The  station  position  in  meridian  coordinates  is  provided  by  the 
preprocessor  module  where  it  is  computed  from  geodetic  latitude,  4>*, 
and  altitude,  h,  as  follows. 


=  I  cos^  4>*  +  b  ^  sin^  cj>* 


-1/2 


12  1  2 

B  =  I  sin  4>:-:  +  — *  cos  4>:'1 

s  \  b c 


-1/2 


-  (A^  t  h)  cos  4>- 


w,S  =  (b  B  +h)sin  6* 

3  e  s 

where  b^  is  the  polar  axis  of  the  reference  spheroid. 

Topocentric  coordinates,  direction  consines,  and  related  quantities  for 
the  vehicle  in  meridian  plane  coordinate  system  are  then 

q  j  =  w  j  -  w^S  (Topocentric  position  in  equatorial 

coordinate  system) 


q2  =  W2 
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PRELIM 


PRELIM 


q3  =  w3  -  w3 


_  ->/  2  ,  Z. Z 

R  =  Vqi  +  qz  +  q3 


ui  *  qi/r 


“=<u  2=  q2/r 


u3  =  q3/r 

V. 


(Topocentric  direction  cosines  in 
equatorial  system) 


iij  =  (wj  -  K  Uj)/r 


u  =  l‘uZ  (*2  -  Ku2)/r 


u3  =  (>V3  -  K  u3)/r 


K  =  Uj  Wj  +  Uj  ^2  +  u3  ^3 


V  = 


V1  “  U2 


(Topocentric  direction 
cosines  in  horizon  system) 


/  =  -u1  sin  <$>*  +  cos 


v3  =  U1  008  +  u3  8*n 


2  ,  z 
+  v2 


Rx  =  VR 


sin  E  =  v. 


cos  E  =  V 
cos  A  =  v^/V 

sin  A  =  Vj/V 
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PRELIM 


9w^ 

9Pi 

cos  a 

sin  a 

0 

9w2 

= 

-  sin  a 

cos  a 

0 

9w3 

0 

0 

1 

9x 

eir 


9z 


If  range  rate  observations  are  used  (PUBS  /  0),  then  variational 
equations  in  velocity  are  rotated  as  follows. 


9w~ 

W 

3w2 

9Pi 

9W3 

_9Pi  _ 

cos  a 


-  sin  a 


0 


sin  a 


9x 

15- 


u 


e  9p . 


cos  a  0 


0 


9k 


where  the  parameters  p.  are  the  ADBARV  conditions  at  epoch  (a  ,  6  ,  0  , 
r  r  1  o  o’  ro* 

A rQ>  VQ)»  drag  parameter  (C^A/Zm)  and  coefficient  of  diurnal  drag 
variation,  €. 
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PREMOD 


SUBROUTINE  IDENTIFICATION 

A.  Title 

PREMOD  (Main  Control) 

FUNCTION 

The  main  control  subroutine  for  the  MHESPOD  —  DAP  preprocessor 
module.  This  subroutine  also  controls  the  printing  of  the  ADT  and  DAP 
tapes.  (See  flow  chart.) 

USAGE 

A.  Calling  sequence 

B .  Input 

C .  Output 

The  subroutine  generates  MCOM,  DAPRE,  the  core  ephemeris, 
and  the  pre-epoch  observation  records  on  the  BCT. 

D.  Error /action  messages 

The  card  images  of  the  JDC  and  comments  cards  are  printed  by 
PREMOD.  The  message: 


TNULL 

FINAL  INITIAL  CONDITIONS  AT  or 

TRISE 

is  printed  by  PREMOD. 

SUBROUTINES  USED 


A.  Library 

.  FWRT.  .  FRDD.  .  FFIL. 

.  FVIO.  .  FWRB.  .  FCNV. 

.  FEFT.  .  FWRD.  .  FRTN. 


.  FBLT. 

.  FWLR. 


B.  Program 

DAPRT 

TRISE 

SETCON 

RDCOM 

TRAJ 


Prints  the  DAP  raw-averaged  data  tape 
Determines  time  of  rise  at  Millstone  Hill 
Presets  MCOM  and  PCOM  constants 
Reads  MCOM  from  the  ADT 

Performs  numerical  integration  of  equation  of 
motion  and  variational  equations 
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P RE  MOD 


PREMOD 


TINIT 

TSET 

IPRNT 

PRECES 

GENCE 

PRTADT 

LODOBS 

UPDATE 

COMSET 

LODSEN 

SETSTR 

WRTCOM 

SETIC 

DAPOB 

RDDATA 

DPRLM 


Computes  epoch  time  and  right  ascension  of  Green¬ 
wich  at  0  hours  epoch  day 
Determines  time  of  set  at  Millstone  Hill 
Prints  epoch  time  and  Cartesian  and  polar  initial 
conditions 

Precesses  the  ephemeris  data  from  mean  of  1950  to 
true  of  0  hours  epoch  day 
Generates  core  ephemeris 
Prints  the  ADT 

Main  control  for  observation  card  processing 
Updates  a  priori  normal  matrix  (ATA) 

Resets  MCOM  before  BCT  is  written 

Main  control  for  sensor  card  processing 

Sets  selected  cells  in  MCOM  and  PCOM  based  on 

the  NAMELIST  input 

Writes  MCOM  record  on  the  BCT 

Initializes  integration  list 

Processes  DAP  obs  from  ADT 

Reads  NAMELIST,  mean  elements  and  ephemeris 
cards 

Computes  initial  conditions  in  Cartesian  coordinates 
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PRTADT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRTADT 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 


To  format  and  print  the  ADT,  the  after-differential  correction  tape 
output  by  MHESPOD.  The  new  initial  conditions  on  each  iteration  are 
converted  to  SPADATS  mean  orbital  elements  and  output. 

USAGE 


A.  Calling  sequence 
CALL  PRTADT 


B .  Input 


1 .  COMMON 

KOUT 

KADT 

CKMER 

CDEG 

CKMFT 

NSCALE 

VSTR 

NPR 

IPADT 


The  logical  number  of  the  printed  output  device 
The  logical  number  of  the  ADT  tape 
Kilometers  for  earth  radius 
Degrees  per  radian 
Kilometers  per  foot 

Location  in  VSTR  of  the  first  cell  of  the  scale 
vector  for  the  solution  vector 

Block  of  storage  containing  arrays  and  vectors 
associated  with  the  MHESPOD  solution  vector 
Number  of  parameters  in  the  solution  vector 
Flag  to  indicate  whether  the  core  ephemeris  is 
to  be  printed  from  the  ADT 

if  IPADT  =  0,  1  ...  do  not  print  core  ephemeris 
=  2  ...  do  print  core  ephemeris 


2.  Calling  sequence 


C .  Output 

1.  COMMON 

NDAPOB  Number  of  DAP  observations  on  the  ADT 
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PRTADT 


PRTADT 


2.  Calling  sequence 


D.  Error/action  messages 

If  the  first  word  of  the  first  record  of  the  ADT  is  not  ADTbbb  in 
BCD,  the  following  message  is  printed. 

*****TAPE  ID  IS  NOT  ADT 

and  the  job  is  terminated. 


E.  Internal  storage 


FIRST 


HEAD 


TAPID 

IDTRG 

SIGMA 

BUFF 


Is  0  upon  entrance  to  the  routine  and  set  *  0  when  the 
residuals  print  header  is  output  the  first  time.  This 
flag  is  used  to  eject  the  page  before  printing  the  resid¬ 
uals  starting  with  iteration  2. 

A  12-cell  block  to  contain  words  3-14  of  the  ADT  ID 
record.  These  words  were  obtained  from  the 
REMARK  card  used  when  generating  the  BCT  for  the 
MHESPOD  run. 

Word  1  of  the  ADT  ID  record,  should  be  ADTbbb 
Target  ID  from  word  2  of  the  ADT  ID  record  . 

The  standard  deviation  of  parameter  i  in  the  solution 
vector  in  external  units,  i  varies  from  1  to  6  corre¬ 
sponding  to  x,  y,  z,  x,  y,  z. 

A  70-cell  block  into  which  the  residual  and  iteration 
summary  records  of  the  ADT  are  read. 


SUBROUTINES  USED 


A.  Library 

SORT 

EXIT 

B.  Program 

MATPT  Prints  a  lower  triangular  matrix  stored  by  rows 
CTOM  Converts  osculating  Cartesian  elements  to  mean 
HUMAH  Scales  a  vector,  ATA  matrix  and  (A^A)-!  matrix  from 
internal  to  external  units  and  vice-versa 
DOBPRT  Prints  the  DAP  observations  on  the  ADT 


EQUATIONS 

T  - 1 

The  <j\  is  computed  from  the  diagonal  elements  of  the  (A  A)  vari¬ 
ance  covariance  matrix. 
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PRTADT 


(ATAf  1 
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PRTADT 


PRTADT 


100  WRITE  (KOUT,  901) 

IF  (N.  EQ.  1) 

OUTPUT  PRINT  HEADER 

HAS  THE  END-OF-ITERATION 

•••  ADT  PRINT  *** 

SUMMARY  RECORD  BEEN  READ? 

j  no  — 


PROCESS  RESIDUAL  RECORD 


110  READ  (KADT,  902) 

IF  ( IRHEAD  .  EQ.  0) 

READ  ID  RECORD  FROM  ADT 

RESIDUAL  HEADER  BEEN 

YES 

AND  PRINT  CONTENTS 

PRINTED  YET? 

G> 


Q— * 


IF  (BUFF  (1).  EQ.  0.) 


HAS  THE  END-OF-RESIDUAL  RECORD 
BEEN  READ? 


NO 


NO 


IF  (TAPID.  EQ.  ADTHD) 

CHECK  THAT  INPUT  TAPE 
IS  AN  ADT  TAPE 

NO 

PRINT  ERROR 
COMMENT  ON 

AND  OFF-LINE 

♦  YES 

ISO  (IRHEAD  =  o 

INITIALIZE  RESIDUALS 
PRINT  HEADER  FLOY 

i 

160  READ  (KADT)  N,  (BUFF  (1),  1 

=  1,  N 

READ  NEXT  N+l  WORD  RECORD  FROM 
ADT 

ERROR 

EXIT 


YES 


IF  (FIRST.  EQ.  0.) 


IS  THIS  THE  FIRST  ITERATION  AND 
SHALL  I  NOT  EJECT  THE  PAGE? 


'  NO 


EJECT  PAGE 

V 

PRINT  RESIDUAL  HEADErI 


180  DO  200  I  1 ,  N  10 


SCALE  RANGE  FROM  EARTH  RADII  TO  KILOMETER 

SCALE  AZ  FROM  RADIANS  TO  DEGREES 

SCALE  EL  FROM  RADIANS  TO  DEGREES 

SCALE  R  FROM  EARTH  RADI  I /MIN  TO  KILOMETERS/SECOND 

SCALE  8  FROM  RADIANS  TO  DEGREES 

SCALE  XFROM  RADIANS  TO  DEGREES 

SCALE  HEIGHT  FROM  FEET  TO  METERS 

SCALE  At  FROM  MINUTES  TO  SECONDS 


I 


PRINT  RESIDUALS 


<■) 


Figure  5-33.  PRTADT  Flow  Diagram 
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PRTADT 


PRTADT 


Figure  5-33. 


PRTADT  Flow  Diagram  (Continued) 


NO 
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PRTATA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRTATA 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
APPLY 

FUNCTION 

T 

The  functions  are  to  move  the  de -augmented  A  A  and  store  by  rows 

T 

as  a  lower  triangular  matrix  in  VSTR(NRTMP),  to  scale  as  an  input  A  A 

T 

inverse,  and  to  print  the  A  A  by  MATPT. 


USAGE 


A.  Calling  sequence 


CALL  PRTATA 


B .  Input 


1.  COMMON 


KOUT 


NPR 

NATA 


NRTMP 


NSCALE 


Total  number  of  parameters  to  solve  for 
Starting  location  of  where  the  triangular 
A^A  is  stored 

Starting  location  of  temporary  storage  for 
special  handling  of  the  R  matrix 
Starting  location  of  list  of  conversion  fac¬ 
tors  which  convert  from  machine  to  out¬ 
put  units  and  vice-versa 
Symbolic  output  tape 


2.  Calling  sequence 
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PR TATA 


C.  Output 

1.  COMMON 
VSTR  (NRTMP) 

2.  Calling  sequence 

D.  Error/action  messages 
SUBROUTINES  USED 


Contains  the  scaled  A^A  normal  matrix 
which  is  output  off-line 


A.  Library 


B.  Program 
HUMAH 
MATPT 
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PRUDRV 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRUDRV 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutine 
TR J  PRO 

FUNCTION 

Function  is  to  control  the  post-processing  capability  of  NRTPOD. 
The  trajectory  propagation  and  covariance  matrix  update  is  performed 
in  this  post-processing  link. 


USAGE 


A.  Calling  Sequence 


Call  PRUDRV 


B.  Input 

1.  COMMON 


ITRJTP 

TRAJX 


Trajectory  tape 

Array  containing  position,  velocity, 
accelerations  and  partials  of  position, 
velocity  with  respect  to  CATi 
variables 

Columns  51-60  on  JDC  card 
Array  of  temporary  storage 


PSTFLG 

TEMP 


2.  Calling  Sequence 


C.  Output 

1.  COMMON 


TG 

TCRASH 


Time  to  integrate  to  (min) 
Impact  flag 


2.  Calling  Sequence 
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PRUDRV 


D.  Error/Action  Messages 


SUBROUTINES  USED 
A.  Library 


B.  Program 

TPRNT 

PRAUPD 


Routine  to  print  trajectory  block 
Prints  and  updates  covariance  and  correla¬ 
tion  matrices 
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PRUDRV 


PRUDRV 


Figure  5-34.  PRUDRV  Flow  Diagram 
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RADR 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RADR 

B.  Segment 

MHESPOD 

NRTPOD 

C.  Called  by  subroutine 
INTEG 

FUNCTION 

Function  is  to  control  region  for  the  formulation  of  the  system  of 

equations  to  be  solved  (Ax  =  B).  A  is  the  matrix  of  partial  derivatives 

of  observations  with  respect  to  solution  variables  and  B  is  the  vector 

of  observation  residuals.  RADR  also  drives  those  routines  which,  given 
T  T  T 

A,  B,  form  A  A,  A  B,  and  B  B.  It  also  drives  the  residuals  print 
routines. 

USAGE 

A.  Calling  sequence 
Call  RADR 

B.  Input 

1.  COMMON 


PUI 


PUBS 


IPFRST 

NAR0W 


PCMR 

P0BCNT 

PRESD 

PSIG 


NPR 


0  to  indicate  first  time  in  RADR 

Starting  location  where  one  row  of  the 
augmented  matrix  (A,  B)  is  stored 

Number  of  all  parameters  to  solve  for 

Computed  slant  range 

Total  number  of  accepted  observations 

Residuals 

Sigma  list 

Sensor  number,  time,  R,  A  E,  R,  a,  6  table 
Vector  (Uj,  u^,  u^) 
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RADR 


PVI 

Vector  (Vj,  v2>  v 3) 

PW  DTI 

Vector  (\Vj,  w^,  w^) 

TSUS 

Current  total  S$S 

VSTR 

Floating  point  variable  storage 

CPI 

IT 

C2PI 

2tt 

PCSE 

Cos  E 

c 

2.  Calling  sequence 

C.  Output 

1 .  C0MM0N 

The  array  VSTR  (NATA)  contains  the  total  A^A,  A^B,  B^B. 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

ASIN 
ATNQ 
DRDP 

LEGS1 
PIM0D 
PRELIM 
PAGE1 


Arc  sine  routine 
Arc  tangent  routine 

Partials  of  observations  w.  r.  t.  Category  1  variables 
T  T 

Forms  A  A  and  A  B  given  A  and  B 
Principal  value  of  angle  between  0  and  2  n 
Preliminary  calculations 
Sets  residuals  in  buffer  for  ADT 
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RADR 


EQUATIONS 

Computation  of  Observables  from  Fitted  Orbit 

The  fitted  orbit  is  used  to  produce  computed  "observables"  for  com¬ 
parison  with  observations. 


„  ;  2  .  2  2 

R  =  Vql  q2  q3 

(range) 

A  =  tan  1  v  i  /  v^ 

(azimuth) 

it  -1  -1  ,, 

E  =  sin  v^  =  cos  V 

(elevation) 

R  =  u  •  W 

(range  rate) 
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RADR 


RADR 


Figure  5-35.  RADR  Flow  Diagram  (Continued) 
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RADSQ 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RADSQ 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutines 

BODY 

DAUX 

DOT 

RPRESS 

FUNCTION 

Function  is  to  compute  magnitude  and  magnitude  squared  of  a  given 
3-D  vector. 

USAGE 

A.  Calling  sequence 

Call  RADSQ  (A(I),  B,  C) 

B.  Input 

1.  COMMON 


2.  Calling  sequence 


A 


Name  of  array  containing  the  vector 


Subscript  locating  1st  component  of 
desired  vector  in  A 


C.  Output 

1.  COMMON 


2.  Calling  sequence 


B 

C 


Magnitude  of  vector 
Magnitude  squared 
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RADSQ 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 
EQUATIONS 
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RDCOM 


SUBROUTINE  IDENTIFICATION 


A. 

Title 

RDCOM 

B. 

Segment 

PREMOD 

c. 

Called  by  subroutine 

PREMOD 

FUNCTION 

To  read  the  /MESCOM/  record  from  the  ADT  tape.  The  ADT  can  be 
positioned  anywhere  at  the  time  this  routine  is  called. 

USAGE 

A.  Calling  sequence 
Call  RDCOM 

B .  Input 

1.  COMMON 

KADT  The  logical  number  of  the  ADT 

2.  Calling  sequence 

C .  Output 

1.  COMMON 

MCOM  The  900-cell  COMMON  block  from  the  ADT 

2.  Calling  sequence 

D.  Error/action  messages 

E.  Internal  storage 

DUM|  IDUM  One  cell  used  for  storing  the  words  in  the  ID 

record,  residuals  records,  and  iteration- 
summary  records.  These  records  are  skipped. 
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RDCOM 


SUBROUTINES  USED 

A.  Library 

B.  Program 

EQUATIONS 


None 
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RDDATA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RDDATA 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 

To  read  the  NAMELIST  input  cards,  the  planetary  ephemeris  cards, 
and  the  Spadats  mean  elements  cards. 


USAGE 


A.  Calling  sequence 


Call  RDDATA 


B .  Input 


1.  COMMON 


KIN 

IMESFG 


Logical  number  of  the  input  device 
MHESPOD  processing  flag  from  the  IDC: 
if  =  0  Read  NAMELIST  input  only 


Read  mean  elements  (if  necessary) 
and  ephemeris  cards 


2.  Calling  sequence 


C .  Output 


1.  COMMON 


DTYPE 

XJD 

PPOS 

PDEL2 


PDEL4 


Type  of  initial  conditions 

Julian  date  for  each  day  of  ephemeris  data 
Position  data  for  sun>moon  ephemeris 
Second  central  differences  for  sun -moon 
ephemeris 

Fourth  central  differences  for  sun  moon 
ephemeris 


TYPE 

STVEC 

TIME 


DTYPE • 


The  state  vector  (6  coordinates) 

Time  at  which  STVEC  defined  in  year,  month 
day,  hour,  minute,  and  seconds 
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RDDATA 


DRAG 

C^A/m 

DRAGCD 

C^  for  C^A/m 

DRAG 

A  for  C^A/m 

DRAGM 

m  for  C^A/ m 

RADPR 

yA/m  for  radiation  pressure 

RPGAM 

y  for  a  yA/m 

RPA 

A  for  a  yA/ m 

RPM 

M  for  a  yA/ m 

ZONAL 

Flags  to  indicate  zonal  harmonics  in  force 
model 

SECT 

Flags  to  indicate  sectorial  harmonics  in  force 
model 

TESS 

Code  words  describing  the  tesseral  harmonics 
in  the  force  model 

NITER 

Number  of  iterations  for  curve  fit  (maximum) 

TNULL 

Specification  for  epoch  in  hour,  minutes,  sec¬ 
onds  from  input  epoch  time 

TB 

Time  at  which  to  initiate  search  for  rise  in 
hours,  minutes,  seconds  from  input  epoch  time 

TF 

Maximum  length  of  core  ephemeris  time 
interval 

SMAT 

a  priori  A1  A 

RCRIT 

Critical  range  for  DAP 

VCRIT 

Critical  range  rate  for  DAP 

STIME 

Smoothing  time  for  DAP 

TBIAS 

Time  bias  for  DAP 

RBIAS 

Range  bias  for  DAP 

VBIAS 

Doppler  bias  for  DAP 

EBIAS 

Elevation  bias  for  DAP 

ABIAS 

Azimuth  bias  for  DAP 

CSUBA 

C^  for  LAP 

CSUBE 

Cj£  for  LAP 

CEP1 

Parameter  associated  with  time  interval  of 

core  ephemeris 

SMELM 

Spadats  mean  elements 

DAYINT 

Epoch  day  for  mean  elements  .  .  .  integer  part 

DAYFRC 

Epoch  day  for  mean  elements  .  .  .  fractional 
part 

2.  Calling  sequence 


D.  Error /action  messages 


E.  Internal  storage 


5-282 


RDDATA 


RDDATA 


SUBROUTINES  USED 


A.  Library 


B.  Program 


COMMENTS 

ZONAL  and  ZONAL  both  appear  in  the  NAMELIST  to  allow  for  mis¬ 
spelling  the  variable  name. 

The  mean  elements  are  read  only  if  DTYPE  is  entered  as  a  3. 
COMMES  is  the  NAMELIST  name  used  for  referencing  the  /MESCOM/ 
block.  COMPRE  is  the  NAMELIST  name  used  for  referencing  the 
/PRECOM/  block. 
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RDDATA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RDDATA 

B.  Program 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 


INPUT 


FUNCTION 

To  read  off-line  into  core  storage  all  NAMELIST  input  and  the  lunar- 
solar  ephemeris  data 


USAGE 


A.  Calling  sequence 


CALL  RDDATA 


B.  Input 


1.  Blank  COMMON 


KIN 

KOUT 

COM 


Symbolic  input  tape 
Symbolic  output  tape  (print) 

Variables  in  BLK1  blank  COMMON  (See 
NAMELIST  input  and  Layout  of  COMMON 
Storage  sections) 

A  provision  for  editing  residents  by  input 
(See  NAMELIST  input  section) 

Number  of  days  of  lunar -solar  ephemeris 
input  (See  NAMELIST  input  section) 

N  for  N  («r)  deletion,  a  provision  for 
editing  residuals  by  input.  (NAMELIST 
Input) 

A  6 -cell  array  containing  epoch  time  in 
year,  month,  day,  hour,  minutes, 
seconds  (NAMELIST  Input) 

Sets  of  At  (See  NAMELIST  Input  section) 


DTMAX 


NDAYS 


CNSIG 


TIME 


DELTT 
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RDDATA 


NITER 

Number  of  iterations  desired  in  curve  fit, 
nominally  =  1  (NAMELIST  Input) 

TYPE 

Indicates  type  of  initial  conditions  (posi¬ 
tion  and  velocity)  input  to  NRTPOD 
(NAMELIST  Input) 

B FLAGS 

Flags  indicating  whether  the  sun  and 
moon  are  to  be  included  in  the  trajectory 
simulation  (See  NAMELIST  Input) 

CKRMS 

A  provision  for  editing  residuals  by  input 
(See  NAMELIST  Input  section) 

2.  Labeled  COMMON 


/INPP/ 

DRAG 

CDA/m  (NAMELIST  Input) 

DRAGCD 

Cd  Coefficient  of  drag  in  DRAG 

DRAGA 

(NAMELIST  Input) 

A  -  area  in  DRAG  term  (meters^) 
(NAMELIST  Input) 

DRAGM 

m  -  mass  in  DRAG  term  (kilogram) 
(NAMELIST  Input) 

STVEC 

Array  identifying  the  initial  position  and 
velocity.  (See  NAMELIST  Input  section) 

CAT  1 

The  CAT1  array  indicates  to  the  program 
the  Category  I  variables  to  be  solved  for 
(See  NAMELIST  Input  section) 

CAT2 

The  CAT2  array  indicates  to  the  program 
the  Category  II  variables  to  be  solved  for 
(See  NAMELIST  Input  section) 

BISES 

Bias  estimates:  (See  NAMELIST  Input 
section) 

SMAT 

A  priori  normal  matrix  (See  NAMELIST 
Input) 

DELET 

Input  provided  to  edit  residuals  (See 
NAMELIST  Input) 

BNDS 

Bounds  specified  to  control  convergence 
for  each  CAT1  or  CAT2  variable  selected 

ZONAL 

for  solution  (NAMELIST  Input) 

Array  of  flags  for  callouts  of  the  coef¬ 
ficients  of  the  zonal  harmonics  -  j£,  .  •  .  , 

SECT 

J yZ  (NAMELIST  Input) 

Array  of  flags  for  callouts  of  the  secto¬ 
rial  harmonics  (See  NAMELIST  Input  Sec¬ 
tion) 

5-285 


RDDATA 


RDDATA 


TESS 

Array  of  code  words  for  selection  of 
tes serai  harmonics  (See  NAMELIST 

RAD  PR 

Input  section) 

Radiation  pressure  parameter, - 

/  meter2  \  m 

— - )  (See  NAMELIST  Input) 

Vkilograny 

RPGAM 

Radiation  pressure  parameter,  Y,  reflec 
tivity  constant  (NAMELIST  Input) 

RPA 

Radiation  pressure  parameter,  A,  effec¬ 
tive  area  of  vehicle  in  square  meters 
(NAMELIST  Input) 

RPM 

Radiation  pressure  parameter,  m,  mass 
of  the  vehicle  in  kilograms  (NAMELIST 
Input) 

CJ 

Zonal  harmonics,  J2,  .  .  .  ,  J 12*  May  be 
altered  on  input  (NAMELIST  Input) 

CJNM 

Coefficients  of  the  sectorial  and  tesseral 

CLAMNN 

harmonics  and  their  associated  angles 

(See  NAMELIST  Input) 

Array  containing  values  of  the  angles 

associated  with  the  coefficients  of  the 

tesseral  harmonics;  \3  ilif  \6 

2  3  0 

UPMAT 

(See  NAMELIST  Input  section) 

A  priori  covariance  matrix  (See  NAME- 
LIST  Input) 

TPOS 

A  60-cell  vector  containing  the  position 
of  the  moon  and  sun  for  NDAYS  days 

TPOS  array  order  is 

x&1»  yai*  zai»  x«!»  y*!»  *•!»  •••  * 

*  '  ”  XaNDAYS'  VaNDAYS*  Z& NDAYS* 

TDEL2 

x®  »  y®  »  z® 

NDAYS  NDAYS  * NDAYS 

Units  of  earth  radii  -  mean  of  1950 

A  60-cell  vector  containing  the  second 
central  differences  of  the  position  ephem- 
eris  of  the  moon  and  sun  for  NDAYS  days 
TDEL2  array  order  is 

,2  rZ  c2  rZ  rZ 

ox  #  0  y  *  0  z  *  0  x  #oy  #••• 

ai  ai  ai  *i  *i 

♦  a  -  moon 
o  -  sun 
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RDDATA 


RDDATA 


TDEL4 


/EPHCOM/ 

XJD 


NDAYS’ 


NDAYS’ 


62z 


®NDAYS 


Units  of  earth  radii  -  mean  of  1950. 

A  60-cell  vector  containing  the  fourth 
central  differences  of  the  position  ephem- 
eris  of  the  moon  and  sun  for  NDAYS  days 
TDEL4  array  order  is 


64x 


©  i 


&4y< 


NDAYS* 


64y 


© 


NDAYS* 


64z»ndays 

Units  of  earth  radii - mean  of  1950. 


A  10-cell  vector  containing  NDAYS 
Julian  dates.  Each  Julian  date  is  input 
mod  2,  430,  000.  0.  XJD  array  order  is 

JDj,  JD2,  JD3,  Jdnda.YS 


3.  Calling  sequence 


C .  Output 

1.  Blank  COMMON 


2.  Labeled  COMMON 

3.  Calling  sequence 


D.  Error /action  messages 
1.  Off-line  comment 

"NO.  OF  EPHEMERIS  DAYS  LESS  THAN  4,  TURN  BODIES 
OFF" 
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RDDATA 


RDDATA 


2.  On  line  comment 

3.  Action 

If  the  number  of  lunar-solar  ephemeris  days  (NDAYS)  is 
greater  than  0  and  less  than  4,  the  off-line  comment  is 
printed  and  NDAYS  is  set  equal  to  0,  which  in  effect  turns 
off  computation  of  perturbative  accelerations  due  to  the 
moon  and  sun. 

SUBROUTINES  USED 


A.  Library 


B.  Program 
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REJECT 


REJECT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
REJECT 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutines 
RADR 

DCITER 

FUNC  TION 

Function  is  to  monitor  the  acceptance  or  rejection  of  an  observa¬ 
tion  in  the  differential  correction  process.  An  observation  may  be  reject¬ 
ed  by  any  of  the  following  criteria: 

1)  Deletion  of  the  residual  by  number  through  the  use  of  the 
DELET  input  card. 

2)  An  observation  weight  of  0. 

3)  Failure  of  the  residual  to  pass  the  gross  outlier  test  (N*<r). 

4)  Failure  of  the  residual  to  pass  the  K*RMS  test. 

5)  Time  from  epoch  greater  than  some  DTMAX  (this  editing 
is  done  in  subroutine  DCITER). 

Subroutine  REJECT  has  a  second  entrance  which  computes  the  RMS 
by  observation  type  to  be  used  on  the  next  iteration. 

USAGE 

A.  Calling  Sequence 

Call  REJECT  (II,  12,  13,  14) 

B.  Input 

1.  COMMON 

NITCT 
PSIG 

PRESDT 
NIDLED 

NIDENT 


R 


Current  iteration  count 
Observation  weight;  <7^, 

Array  containing  the  unweighted 
residuals  (JR,  4A,  JE,  JR) 

Location  of  first  cell  of  the  array  of 
residual  deletion  numbers  in  vari¬ 
able  storage 

Number  of  entries  in  the  NIDLED 
array 
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REJECT 


REJECT 


CKRMS 

RMS  multiplier  for  the  K*RMS 
rejection  criterion  (Kis  nominally 
set  to  1.5) 

CNSIG 

N  multiplier  for  the  N*  <r  gross  out¬ 
lier  rejection  criterion  (N  is  nom¬ 
inally  set  to  1000.  ) 

VSTR 

Variable  storage  array 

2.  Calling  Sequence 

11 

A  number  1  -4  referring  to  the  type  of 
observation  being  tested 

11  =  1  Range 

=  2  Azimuth 

=  3  Elevation 

13 

=  4  Range  rate 

Entrance  flag 

13  =  1  for  normal  entrance  editing 

tests 

13  =  2  to  calculate  RMS  for  each 
data  type  at  the  end  of  the 
iteration 

14 

Residual  number 

C.  Output 

1.  COMMON 

PR  MS 

Array  containing  the  RMS  by  observa 
tion  type  to  be  used  on  the  next  itera¬ 
tion 

PDEL.FG 

Four -cell  array  corresponding  to  the 

data  types  (R,  A,  E,  R)  containing  in 

each  cell  either 

1)  Word  of  blanks  indicating  the 
observation  has  been  accepted 

2)  Word  containing  N  indicating  the 
observation  residual  has  failed 
the  gross  outlier  test  (N*<7) 

3)  Word  containing  K  indicating  the 
observation  residual  has  failed 
the  K*RMS  test 

4)  Word  containing  *  indicating  the 
observation  was  deleted  by  an 
input  DELET  list 

5)  Word  containing  S  indicating  the 
observation  was  deleted  due  to 
an  observation  weight  being  zero 
or  negative 
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REJECT 


2. 


REJECT 


Calling  Sequence 
12 


D.  Error/Action  Messages 

SUBROUTINES  USED 
A.  Library 
ABS 
SORT 


0  residual  passed  all  editing  tests 
and  has  been  accepted 
1  residual  failed  one  of  the  editing 
tests  and  was  rejected 


B.  Program 
PASTOR 


Routine  to  set  up  PDELFG  array 


METHOD /EQUATIONS 

Compute  the  following  for  the  II  type  observation: 

II  =  1  AR 
=  2  AA 

=  3  AE 
=  4  A  R 
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Figure  5»36.  REJECT  Flow  Diagram 
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RMAX 


RMAX 


SUBROUTINE  IDENTIFICATION 

A. 

Title 

RMAX 

B. 

Segment 

NRTPOD  Partials  -  least  square 

C. 

Called  by  subroutine 

PAGE  1 

FUNCTION 

Before  a  line  of  residuals  is  printed  RMAX  checks  the  magnitude  of 
each  output  quantity.  If  the  number  overflows  the  prescribed  format,  a 
string  of  9's  is  substituted. 


USAGE 

A. 

Calling  sequence 

Call  RMAX 

B. 

Input 

1 .  COMMON 

TEMP  (1) 

residual  in  R 

TEMP  (2) 

residual  in  A 

TEMP  (3) 

residual  in  E 

TEMP  (4) 

residual  in  R 

TEMP  (5) 

residual  in  u 

TEMP  (6) 

residual  in  v 

TEMP  (7) 

residual  in  w 

TEMP  (8) 

^Au^  +  Av^  +  Aw' 

TEMP  (9) 

P 

C.  Output 

A  signal  number  of  all  9's  replaces  the  input  value  in  the 
appropriate  TEMP  location  if  the  residual  overflows. 


5-2^3 


RMAX 


RMAX 


SUBROUTINES  USED 

1.  Library 
.  FXEM. 

2.  Program 
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RPRESS 


RPRESS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RPRESS 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutine 
DAUX 

FUNCTION 

To  compute  the  perturbative  acceleration  on  a  spacecraft  due  to 
direct  radiation  pressure  from  the  sun  and  reflected  radiation  from  the 
earth. 

USAGE 

A.  Calling  sequence 
CALL  RPRESS 

B.  Input 

1.  COMMON 
/MESCOM/ 


TLIST 


Numerical  integration  working 
storage  array 


XN 


Positions  of  the  moon,  sun 
referenced  to  the  earth 


DBASE 


TEMP 


Temporary  working  storage 

Days  from  1950  to  midnight  day  of 
epoch 


TR 


R  -  radius  magnitude  from  vehicle 
referenced  to  the  earth 


CPI 


“  radians 


SGAMAM 


=  Eq  S'  VA/m  (e.  r.  ^/min^) 
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RPRESS 


RPRESS 


2.  Calling  sequence 

C.  Output 

1.  COMMON 

/MESCOM/ 

TRPRES  Three -cell  array  containing  the 

acceleration  due'to  radiation 
pressure  in  the  x,  y,  and  z 
directions. 

2.  Calling  sequence 

D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
SQRT 
SIN 
COS 

B.  Program 
EVERT 
UVECT 
DOT 
ATNQ 

EQUATIONS 


H  = 

X  J 
SJ 

+  ysT+ 

EC1  position  vector  of  sun 

R  = 

X  J  + 

yj  +  zk 

EC1  position  vector  of  vehicle 

CO  8 

Ps  = 

H  •  R/  |  H  |  !r| 

a 

Vr2-1 

COS 

P  = 

O 

+  -R 
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RPRESS 


RPRESS 


Reflected  flux  factor 


Er/E  3  0.  4  R 
o 


Attenuation  to  reflected  flux  factor 

a  =  i- 


r 

I  3  -  P  \1 

t  n 

1  4-  rn  q  - 

8  O 

I  T  U  o  p  ~ 

«'2-  'UJ 

E  =  E  '  (E  /E  )  a 
r  o  r  o 


Direct  radiation  acceleration 


=  Eo(*-xs)/H 
H2Yd  =  Eo(y-y9)/H 

=  E0(z-zs)/H 


Reflected  radiation  acceleration 

2 


x  =  - 


Ex  ^ 

r  X  T_T  “  *  * 

pr -  +  H  X 


e  y 


z  = 


E  z 
r 


/H 


V  R-  y,  |  /H 


+  HZz 


/  H* 
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RPRESS 


RPRESS 


Region  Tests 

1.  If  vehicle  is  in  Regions  I  or  II, 

cos  0  >  cos  0 
s  o 

2.  If  vehicle  is  in  Region  II, 

.  -cos  0  >cos  0 

o  s 


3.  If  vehicle  is  in  Region  IV, 


R 


tan  T  cos  (  rt-  0  )  +  sin  (  n-  0  )  >  1 
s  s  j 


where  tan  1  =  0,  0085 


II 
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RPRESS 


RPRESS 


RPRESS 


SDELET 


SDELET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SDELET 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

The  function  is  to  move  observation  deletion  numbers  from  DATA 
storage  starting  at  DATA  (595)  to  IVSTR  variable  storage  starting  at 
IVSTR  (NIDLED). 

USAGE 

A.  Calling  sequence 
CALL  SDELET 

B.  Input 

1.  Blank  COMMON 

NIDLED 

NIDENT 

2.  Labeled  COMMON 

/INPP/ 

DATA  Input  buffer  storage 

3.  Calling  sequence 

C.  Output 
1.  Blank  COMMON 


Identifies  the  starting  location  in  vari¬ 
able  storage  of  where  the  observation 
deletion  table  begins 

Number  of  entries  in  the  NIDLED  list 
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SDELET 


SDELET 


2.  Labeled  COMMON 

/VSTR/ 

IVSTR  (NIDLED  -  NIDENT)  Variable  storage  contain¬ 
ing  pairs  of  residual 
numbers  for  deletion 
purposes 

3.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 


B.  Program 


SELECT 


SELECT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SELECT 

B.  Segment 
MHESPOD 

C.  Called  by  subroutine 
MESPOD 

FUNCTION 


This  subroutine  selects  the  next  time  of  an  observation  to  which 
the  numerical  integration  is  to  be  carried. 


USAGE 

A.  Calling  sequence 
Call  SELECT 


B.  Input 

1.  COMMON 
PUBS 
TEPOCH 
TLIST 
T  MINUS 
-  TUBSEF 


Sensor  number,  time,  R,  A,  E,  ft.,  type 
Epoch  time,  minutes  from  midnight 
Numerical  integration  working  storage 
Flag  to  indicate  integration  times  before  epoch 
EOF  flag  for  reading  observations 


2.  Calling  sequence 


C.  Output 

1.  COMMON 

TG  Time,  minutes  from  0** 1 2  of  epoch  day,  to 

integrate 

2.  Calling  sequence 

D.  Error/action  messages 
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SELECT 


SELECT 


SUBROUTINES  USED 


A.  Library 


B.  Program 

SETIC 

UBSGET 


Initialize  the  integration  list 

Gets  next  observation  time  from  variable 

storage 
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SELECT 


SELECT 


Figure  5-38.  SELECT  Flow  Diagram 
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SELECT 


SELECT 


SUBROUTINE  IDENTIFICATION 


A.  Title 


SELECT 


B.  Program 


NRTPOD 

C.  Called  by  Subroutines 
TRJGEN 

FUNCTION 

To  select  the  next  output  time  for  the  trajectory  package.  This 
routine  is  used  to  select  the  next  observation  time  during  the  Aerojet 
portion  of  NRTPOD,  and  the  next  DELTT  time  for  the  print-update 
option. 

USAGE 

A.  Calling  Sequence 
Call  SELECT 

B.  Input 

1.  COMMON 


TEPOCH 

DELTT 

KONTRL 


Epoch  time,  minutes  from  0  hours 
8  sets  of  At,  T 

=  1  if  curve  fit  in  progress,  =  2  if 
trajectory  print-update 
Integration  list 

Counter  for  DELTT  array  to  indicate 
next  set  to  be  processed 


TLIST 

NDTCT 


2.  Calling  Sequence 


C.  Output 
TG 


The  time  of  the  next  output,  minutes  from  0 
hours  day  of  epoch 

The  next  observation  (if  KONTRL  =  1) 
Non-zero  if  the  end  of  the  observation  tape 
has  been  sensed  (if  KONTRL  =  1) 


l 


PUBS 

TUBSEF 


D.  Error /Action  Messages 
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SELECT 


SELECT 


E.  Internal  Storage 
1.  COMMON 
TMINUS 


NDTCT 

SUBROUTINES  USED 
A.  Library 


This  flag  is  used  when  there  are  pre¬ 
epoch  times  to  be  processed.  When 
the  first  pre-epoch  time  is  encount¬ 
ered  this  glag  is  set  to  1  and  the 
integration  is  initialized  in  the  back¬ 
ward  time  direction.  When  the  first 
post-epoch  time  is  encountered,  re¬ 
initialization  of  the  integration  at 
epoch  will  take  place  if  TMINUS  is 
set  to  1.  Initially,  TMINUS  is  assumed 
0. 

Incremented  internally 


B.  Program 

UBSGET 

SETIC 


Processes  observation  tape 
Initializes  integration  list  at  epoch 
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SELECT 


SELECT 


CALL  UBSGET 


OBTAIN 

NEXT  OBSERVATION 
TIME 


REINITIALIZE  INTEGRATION 
AT  EPOCH 


Figure  5*39. 


SELECT  Flow  Diagram 
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SELECT 


SELECT 


INCREMENT 
PRINT  1 
CURRE 

T  PREVIOUS 

TIME  CY 

NT  At 

f 

COMPUTE  FINAL 

PRINT  TIME  FOR 

THIS  At,  T  SET 

Figure  5-39.  SELECT  Flow  Diagram  (Continued) 
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SELECT 


SELECT 


SET  KICK  =  0  - 

SET  KICK  =  2 


INCREMENT 
NDTCT  BY  KICK 


SAVE  PRINT 
TIME  IN  TREF 

(  RETURN  J 


Figure  5-39.  SELECT  Flow  Diagram  (Continued) 
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SENIN 


SENIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SENIN 

B.  Segment 
PREMOD 

C.  Called  by  subroutines 

LODSEN 

SETCON 


FUNCTION 

To  build  the  master  sensor  table,  ant  the  table  containing  parameters 
associated  with  each  sensor  to  be  used  in  be  fit.  Up  to  six  unique  sta¬ 
tions  may  reside  in  the  MST. 

USAGE 


A.  Calling  sequence 

Call  SENIN  (TEMP,  ERROR) 


B .  Input 


1.  COMMON 
NSTAT 

VSTR 

CDEG 

CMTER 

TALFAG 

CBE 


Location  in  VSTR  of  the  start  of  the  60-cell 
master  sensor  table 

Block  of  storage  containing  vectors  and  arrays 
associated  with  the  solution  vector  and  the  sta¬ 
tion  information 
Degrees  per  radian 
Meters  per  earth  radii 

a  ...  right  ascension  of  Greenwich  at  0 

go 

hours  of  the  epoch  day  (radians) 

Semi-minor  axis  of  the  geoid  (earth  radii) 


2. 


Calling  sequence 


TEMP(l) 

TEMP(Z) 

TEMP(3) 

TEMP(4) 


Station  ID  (BCD,  3  characters,  left  adjusted) 
Station  geodetic  latitude  (deg)  .  .  .  positive 
North 

Station  longitude  (deg)  .  .  .  positive  East 
Station  height  (meters)  above  mean  geoid 
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SENIN 


SENIN 


C .  Output 

1 .  COMMON 

VSTR  The  master  sensor  table  from  VSTR  (NSTAT) 

NSTAT  -  VSTR  (NSTAT  +  59) 

2.  Calling  sequence 

ERROR  =  0  Station  information  entered  into  MST. 

=  1  No  room  in  MST  for  this  station. 

D.  Error /action  message 

E.  Internal  storage 

A  Auxiliary  parameters  used  in  station  geocentric  position. 

B  (See  equations) 

SUBROUTINES  USED 

A.  Library 

SIN 

SORT 

COS 

B.  Program 

PIMOD  Insures  angle  between  0  and  2ir. 

COMMENTS 


The  routine  will  replace  the  information  in  the  MST  for  the  current 
station  if  a  match  on  ID  is  found,  otherwise  the  information  is  phased  in 
the  next  available  position  in  the  MST. 


A  typical  entry  in  the  MST  appears  as  follows: 


VSTR  (NSTAT) 
(NSTAT+1) 
(NSTAT+2) 
(NSTAT+3) 
(NSTAT+4) 
(NSTAT+5) 
(NSTAT +6) 

(NSTAT+7) 

(NSTAT+8) 

(NSTAT +9) 


Station  ID  (BCD) 

Station  latitude  (radians)  . 
Station  longitude  (radians) 
Station  height  (earth  radii) 
cos  <p 
sin  <f> 


O'  +  X 
so 

w| 

w5 


Not  used 


<P 

.  X 
.  h 


5-313 


SENIN 


SENIN 


EQUATIONS 

To  find  the  geocentric  coordinates  of  the  station: 


uS  HAS  2  COMPONENTS 


TO  FIND  THE  GEOCENTRIC  COORDINATES  OF  THE  STATION: 
IF  As  =  (COS2^+b2  SIN2^)'1/2 

,  -1/2 

B$  =  (SIN^>  +  ~COS2<£) 
b 

e  D 


then 


w,  =  (a  A  +  h)  cos  <p 
1  e  s 

g 

w.  =  (b  A  +  h)  sin  <p 
j  e  s 
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SENIN 


SENIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SENIN 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutines 
LODSEN 

FUNCTION 


This  subroutine  moves  input  sensor  location  parameters  from  buffer 
storage  to  working  storage,  computes  the  number  of  sensors  and  sets  up 
the  master  sensor  table  with  scaled  units  and  values. 


USAGE 


A.  Calling  sequence 
CALL  SENIN 


B.  Input 


1 .  Blank  COMMON 

CDEG 

CMTER 

CBE 

NUBS 

NSTAT 

NPR 

NDPR 

TALFAG 


degrees / radian 

meters  /e  .  r . 
b 

e 

Identifies  the  starting  location  of  the 
observation  table 

Identifies  the  starting  location  of  the 
master  sensor  table 

Total  number  of  parameters  to  solve  for 
Number  of  all  differential  +  initial 
parameters  to  solve  for  (Category  1) 
ogQ  for  midnight  day  of  epoch  (radians) 


2.  Labeled  COMMON 

/TEMP/ 

TEMP  (1) 

TEMP  (2) 

TEMP  (3) 

TEMP  (4) 

/INPP/ 

DTMP 


Sensor  ID  (left  adjusted) 

Sensor  latitude  (deg) 

Sensor  longitude  (deg) 

Sensor  height  (meters) 

Saves  station  number  and  code  word  for 
those  stations  with  code  word  t  0 
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SENIN 


3.  Calling  sequence 


C.  Output 

1.  Blank  COMMON 


2.  Labeled  COMMON 

/VSTR/ 

VSTR (NSTAT) 

(NSTAT  +  1) 
(NSTAT  +  2) 
(NSTAT  +  3) 
(NSTAT  +  4) 
(NSTAT  +  5) 
(NSTAT  +  6) 
(NSTAT  +  7) 
(NSTAT  +  8) 
(NSTAT  +  9)* 

(NSTAT  +  10) 
(NSTAT  +  11) 


Sensor  ID 
Latitude  (radians) 

Longitude  (radians) 

Altitude  (e.  r.  ) 

Cos  <j>  * 

Sin  <j>* 

ogQ  +  X  (radians) 

S  (e.r.  ) 

W3  S  (e.r.) 

Code  word  for  the  particular  station 
identified  by  VSTR  (NSTAT) 

=  0.0 
=  0.0 


*VSTR  (NSTAT  +  9)  is  the  code  word  given  in  the  master  sensor  table  for 
each  sensor  telling  the  program  when  to  look  in  the  IVSTR  (NPRCD) 
array  for  additional  information  concerning  Category  2  variables  being 
solved  for  the  particular  sensor.  If  the  code  word  of  a  sensor  equals 
zero,  then  no  Category  2  variables  are  being  considered  for  the  sensor. 
If  the  code  word  of  a  sensor  is  non  zero,  it  has  the  following  form: 


A  *  100.  0  +  B 


A  and  B  refer  to  the  starting  and  stopping  points  in  the  IVSTR  (NPRCD) 
array  where  the  program  can  find  the  numbers  identifying  Category  2 
variables  which  are  being  solved  for  this  sensor. 

3.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 

COS 

SIN 

SORT 
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B.  Program 

PIMOD  Determines  principle  value  of  angle  between  0  and  2tt 
MATCH  Compares  2  cells  for  exact  match 

EQUATIONS 

Same  as  in  Espod  Mathematical  and  Subroutine  Description 
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SUBROUTINE  IDENTIFICATION 


A.  T  itle 
SENRD 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
LODSEN 

FUNCTION 

To  read  the  three  types  of  MHESPOD  station  location  cards.  The 
routine  reads  cards  until  a  type  1  card  (station  location)  is  read  or  the 
end  of  sensor  card  indicator  (station  ID  =  END)  is  sensed.  If  a  type  2 
(biases)  or  3  (sigmas)  is  read,  the  data  is  entered  into  the  BIAS  array 
for  later  processing.  If  no  room  remains  for  this  station  in  BIAS,  an 
error  comment  is  printed  and  the  data  ignored. 


USAGE 


B. 


C. 


Calling  Sequence 
CALL  SENRD  (TEMP) 

Input 

1.  Common 

KIN  Logical  number  of  the  input  device 

KOUT  Logical  number  of  the  output  device 

2.  Calling  Sequence 
Output 

1.  COMMON 

A  typical  entry  in  the  BIAS  is: 

BIAS  (1)  Station  ID 

(2)  Range  bias  (km) 

(3)  Azimuth  bias  (deg) 

(4)  Elevation  bias  (deg) 

(5)  Range  rate  bias  (km/sec) 

(6)  Not  used 

(7)  Range  <r  (km) 
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BIAS  (8)  Azimuth  c r  (deg) 

BIAS  (9)  Elevation  cr  (deg) 

BIAS  (10)  Range  rate  tr  (km/ sec) 

2.  Calling  Sequence 

TEMP  (1)  Station  ID  (BCD  .  .  .3  character  ...  left 
adjusted) 

(2)  Station  geodetic  latitude  (deg) 

(3)  Station  longitude  (deg) 

(4)  Station  height  (meters) 

(7)  Type  (=1) 

D.  Error /action  messages 

If  there  is  no  room  for  a  given  station  in  BIAS,  the  following 
message  is  printed: 

NO  ROOM  IN  BIAS  TABLE  FOR  STATION  XXX 
SUBROUTINE  USED 
A.  Library 


B.  Program 

EQUATION 


None 
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Figure  5-40.  SENRD  Flow  Diagram 
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SENRD 


Figure  5-40. 


SENRD  Flow  Diagram  (Continued) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
SENRD 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 
LODSEN 

FUNCTION 

Function  is  to  read  the  sensor  cards  (3  types)  and  to  build  a  temporary 
buffer  (DTMP)  for  biases  and  weights  by  station. 


USAGE 


A.  Calling  sequence 

CALL  SENRD  (SEOF) 


B.  Input 


1.  Blank  COMMON 


KIN 

KOUT 

PREFLG 


Symbolic  input  tape 

Symbolic  output  tape 

NRTPOD  control  flags  (col  31  -  40  on 

JDC) 


2.  Labeled  COMMON 

-  /TEMP/ 

TEMP 


Internal  temporary  storage 


3.  Calling  sequence 


C .  Output 


1.  Labeled  COMMON 


/  INPP/ 
NDTMP 


Counter  on  DTMP  buffer  for  biases 
and  weights  by  station. 

Station  ID 
Azimuth  bias  (deg) 

Elevation  bias  (deg) 

Range  bias  (km) 

Range  bias  (km/sec) 


DTMP  (51) 


(52) 

(53) 

(54) 

(55) 
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(56) 

(57) 

(58) 

(59) 

(60) 

(61  ...  70) 
(70  . . .  80) 
2.  Calling  sequence 
SEOF 


D.  Error /action  messages 

1.  Off-line  comment 

"NO.  OF  SENSORS  GREATER  THAN  MAX  ALLOW.  — 
IGNORE.  " 

2.  On-line  comment 

3.  Action 

Ignores  processing  of  previous  sensor  data,  and  proceeds  to 
the  next  sensor  card. 

SUBROUTINES  USED 

A.  Library 

B.  Program 


time  bias  (sec) 

<r  £  standard  deviation  in  range 
<ta  standard  deviation  in  azimuth 
<Tj£  standard  deviation  in  elevation 
<rp  standard  deviation  in  range  rate 
Repeated  for  each  input  sensor 
(Maximum  of  25  sensors  allowed) 


Flag  indicating  whether  all  sensor  cards 
have  been  read. 

=  -1.  More  sensors  to  be  read 
=  +1.  END  sensor  card  has  been 

detected.  No  more  sensor  cards 
to  be  read. 
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SUBROUTINE  IDENTIFICATION 


A. 

Tide 

SETCON 

B. 

Segment 

FREMOD 

c. 

Called  by  subroutines 

PREMOD 

FUNCTION 

To  preset  the  program  constants  and  build  in  the  nominal  values  for 

various  control  and  input  parameters.  The  master  sensor  table  is  preset 

with  the  identification  and  station  locations  for  Millstone  Hill,  Haystack 
Hill  and  Kwajalein.  Pseudo  variable  storage  assignment  are  computed 
and  the  BDNS  and  NSC  ALE  vectors  are  set  up. 

USAGE 

A. 

Calling  sequence 

CALL,  SETCON 

B. 

Input 

1.  COMMON 

2.  Calling  sequence 

c. 

Output 

COMMON 

Name 

Pre-set  values 

ZONAE 

J 2*  ^3*  ^4 

SECT 

T  2  \  2 

J  2  •  2 

CJ(1) 

0. 

Jl 

CJ(2) 

.  10823  x  10"2 

J2 

CJ(3) 

230  x  10'5 

J3 
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Name 
C  J  (4) 

CJ  (5) 

CJ(6) 

CJ  (7) 

CJ(8) 

CJ  (9) 

CJ(10) 

CJ(ll) 

CJ(12) 

CJNM(1,  1) 
CJNM(2,  1) 
CJNM(3,  1) 
CJNM(4,  1) 
CJNM(5,  1) 
CJNM(6,  1) 
CJNM(1,  2) 
CJNM(2,  2) 
CJNM(3,  2) 
CJNM(4,  2) 
CJNM(5,  2) 
CJNM(6,  2) 
CJNM(1,  3) 
CJNM(2,  3) 
CJNM(3,  3) 
CJNM(4,  3) 


Pre-set  values 

-.18  x  10-5 

J4 

10  x  10-6 

J5 

.  36  x  10~6 

J6 

39  x  10-6 

J7 

.  24  x  10"6 

J8 

0. 

J9 

5  x  10-6 

J10 

0. 

Jll 

.  28  x  10-6 

Jl2 

0 

Jll 

0 

J21 

.  192  x  10-5 

J31 

.  48  x  10~6 

J41 

.  23  x  10"6 

J51 

.  14  x  10" 6 

J61 

0 

X21 

.  232  x  10" 5 

J22 

.  12  x  10"6 

J32 

.  72  x  10‘7 

J42 

0 

J52 

. 7  x  10‘8 

J62 

-3.  6 

x3l 

6.6 

X32 

.  191  x  10‘5 

J33 

.  31  x  10"  7 

J43 
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Name 

Pre-set  values 

CJNM(5,  3) 

0 

J53 

CJNM(6,  3) 

. 51  x  10"8 

J63 

CJNM(1,  4) 

114.  5 

X41 

CJNM(2,  4) 

47.  7 

X42 

CJNM(3,  4) 

5.  9 

x43 

CJNM(4,4) 

. 013  x  10-6 

J44 

CJNM(5,  4) 

0 

J54 

C  JNM(6,  4) 

.  1  x  10~8 

J64 

CJNM(1,  5) 

72.  9 

^•5 1 

CJNM(2,  5) 

0 

X52 

CJNM(3,  5) 

0 

X53 

CJNM(4,  5) 

0 

X54 

CJNM(5,  5) 

0 

J55 

CJNM(6,  5) 

0 

J  65 

CJNM(1,  6) 

-83.  7 

X16 

CJNM(2,  6) 

45 

^26 

CJNM(3,  6) 

19.  4 

x36 

CJNM(4,  6) 

74.  6 

x46 

CJNM(5,  6) 

0 

X56 

CJNM(6,  6) 

0 

J66 

CLAMNN(l) 

0 

X11 

CLAMNN(2) 

-37.  5 

X22 

CLAMNN(3) 

51.  3 

X33 

CLAMNN(4) 

28.  4 

X44 
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Name 

Pre-set  values 

CLAMNN(5) 

0 

X55 

CLAMNN(6) 

0 

X66 

CWE 

4.  37526906  x  10’3 

CELLIP 

1/298.  3 

CMU 

5.  5303934  x  10"3 

CGMR(l) 

1/81.  3015 

CGMR(2) 

332951.  3 

CFTER 

2.  0925738  x  10"7 

CKMFT 

. 3048  x 10”3 

CKMER 

6378.  165 

CMTER 

6378165. 

CDEG 

57.  29577951 

CFTNM 

6076.  1152 

CDAYMN(l) 

31 

CDAYMN(2) 

28 

CDAYMN(3) 

31 

CDAYMN(4) 

30 

CDAYMN(5) 

31 

CDAYMN(6) 

30 

CDAYMN(7) 

31 

CDAYMN(8) 

31 

CDAYMN(9) 

30 

CDAYMN(IO) 

31 

CDAYMN(ll) 

30 

CDAYMN(12) 

31 

SETCON  SETCON 


Name 

Pre-set  values 

CPI 

3.  1415926536 

C2PI 

6.  2831853072 

KOUT 

3 

KIN 

2 

KBCT 

5 

KADT 

6 

KDAP 

7 

CHMAX 

64. 

CHMIN 

0. 

CYMIN 

.  1 

CER 

1.  x  10-8 

CBE 

1-  CELLIP 

CRASHE 

00 

1 

o 

X 

• 

pH 

NRRR 

0 

TSTEP 

1. 

CEP1 

60. 

NPR 

6 

NDPR 

6 

NAROW 

1 

NBDNS 

8 

NPAR 

14 

NDPAR1 

20 

NSCALE 

26 

NAT  A 

32 

NR 

60 
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Name 

Pre-set  values 

NSTAT 

95 

VSTR(NBDNS) 

1  x  106/CFTER 

VSTR(NBDNS+1 ) 

1  x  106/CFTER 

VSTR(NBDNS+2) 

1  x  106/CFTER 

VSTR(NBDNS+3 ) 

60  x  104/CFTER 

VSTR(NBDNS+4) 

60  x  104/CFTER 

VSTR(NBDNS+5 ) 

60  x  104/CFTER 

VST  R  (NSC  ALE) 

CKMER 

VST  R(NSC  ALE  + 1 ) 

CKMER 

VSTR(NSCALE+2) 

CKMER 

VSTR(NSCALE+3) 

CKMER/ 60 

VSTR(NSCALE  +4) 

CKMER/60 

VSTR(NSCALE+5) 

CKMER/  60 

IMODFG 

1 

1ST  PF  G 

1 

RC 

16.  5 

VC 

.  009 

AN 

5.  25 

CSUBA 

.  05 

CSUBE 

.  05 

Calling  sequence 

D.  Error/action  messages 


SETCON 


SETCON 


E.  Internal  storage 

XMHID  (1) 
XMHID  (2) 
XMHID  (3) 
XMHID  (4) 
XHHID  (1) 
XHHID  (2) 
XHHID  (3) 
XHHID  (4) 
XKWID  (1) 
XKWID  (2) 
XKWID  (3) 
XKWID  (4) 

SUBROUTINES  USED 


A.  Library 


B.  Program 

SENIN  Enter  station  in  master  sensor  table 

EQUATIONS 

None 


Station  code  for  Millstone  Hill:  MHbbbb 
Millstone  Hill  latitude  (deg) 

Millstone  Hill  longitude  (deg) 

Millstone  Hill  height  (meters) 

Station  code  for  Haystack  Hill:  HHbbbb 
Haystack  Hill  latitude  (deg) 

Haystack  Hill  longitude  (deg) 

Haystack  Hill  height  (meters) 

Station  code  for  Kwajalein:  Kwbbbb 
Kwajalein  latitude  (deg) 

Kwajalein  longitude  (deg) 

Kwajalein  height  (height) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
SETCON 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

To  set  up  nominal  values  of  program  control  constants,  potential 
model  constants,  scale  factors,  and  symbolic  tape  assignments. 

USAGE 

A.  Calling  sequence 
CALL  SETCON 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

C.  Output 

1.  Blank  COMMON 


CWE 

Earth's  rotational  rate  (radians/min  ) 

CELLIP 

Ellipticity  of  the  earth 

CMU 

GM  of  the  earth  (e  .  r .  ^/min^) 

CGMR 

GM  ratios  (MOON  GM/EARTH  GM,  SUN 
GM/EARTH  GM) 

CFTER 

ft/e .  r. 

CKMFT 

km/ ft 

CKMER 

km/  e .  r  . 

CMTER 

meters/e.  r. 

CDEG 

degree  s/ radian 
ft/n  mi 

CFTNM 

CNMER 

n  mi/earth  radii 

CDAYMN 

12-cell  array  denoting  the  number  of  days 
in  each  month 

CPI 

TT 

C2PI 

2tt 
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KOUT 

KIN 

MT 

NOUT 

ITRJTP 

CHMAX 

CHMIN 

CYMIN 

CER 

CBE 

CRASHE 

CRASHM 

CJD50 

COMLST 

CFTEPS 

DTMAX 

TSTEP 
B  FLAGS 

SKIP 

CKRMS 

CNSIG 

NRRR 

FLVE 


Output  tape  number  (print) 

Input  tape  number 
Observations  tape  number 

Scratch  tape  not  used  at  present  by  NRTPOD 
Trajectory  ephemeris  tape  number 
Maximum  integration  step  size 
Minimum  integration  step  size 
Parameter  for  variable  step  integration 
Parameter  for  variable  step  integration 
be  =  1.  -  CELLIP 

Impact  flags  used  by  subroutine  TRAJ 

Julian  date  Jan  0,  1950 

Size  of  variable  storage 

RMS  convergence  criterion 

Editing  parameter  -  maximum  allowable 

observation  time  from  epoch  (days) 

Initial  integration  step  size  (min) 

Flags  indicating  bodies  (moon  and  sun)  to  be 
considered 

If  0,  always  set  FLVE  =  0,  if  non-zero,  set 
FLVE  accordingly 

A  provision  for  editing  residuals  by  input 
N  for  N*  (T  deletion 

Ratio  of  Range -Kutla  step  to  Cowell  step 
If  non-zero,  skip  VAREQ 


2. 


Labeled  COMMON 
/iNPP/ 

SECT 


CJ 


Array  of  cells  used  for  callouts  of  the  sec¬ 
torial  harmonics,  non-zero  to  include  the 
desired  harmonic 

Values  of  the  coefficients  of  the  zonal  har¬ 


monics  J 


12- 


ZONAL 

CLAMNN 

CJNM 


Array  of  cells  used  for  callouts  of  the  coef¬ 
ficients  of  the  zonal  harmonics 
Array  containing  the  angles  associated  with 
the  coefficients  of  the  tesseral  harmonics 
6x6  array  containing  the  coefficients 
of  the  sectorial  and  tesseral  harmonics  and 
their  associated  angles 


3.  Calling  sequence 


D. 


Error/ action 


message  s 
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SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
SETIC 

B.  Segment 

MHESP0D 

PREM0D 

C.  Called  by  subroutine 

MESP0D 

SELECT 


FUNCTION 

The  function  is  to  initialize  the  integration  list  and  other  parameters 
which  must  be  re-initialized  each  time  the  integration  is  re-started. 

USAGE 


A.  Calling  sequence 
Call  SETIC 


B.  Input 


1 .  COMMON 

TEPOCH  Minutes  from  midnight  to  epoch 

TSTEP  Starting  step  size  for  the  numerical 
integration  in  minutes 

TICRT  x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  in 

Earth  radii  and  Earth  radii  per  minute 

2.  Calling  sequence 
C.  Output 


1. 


COMMON 

TMINUS  Flag  indicating  backward  integration 


pmat\ 

VMAT j 


Arrays  used  in  variational  equation 

formulation,  initialized  at  0 
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TG  Time  to  integrate  to 

FLVE  Flag  for  variational  equations  computation 

T  CRASH  Impact  flag 

TLIST  Numerical  integration  working  storage 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

DAUX 

VPERT 

EQUATIONS 

None 


5-338 


SETIC 


SETIC 


Figure  5-41.  SETIC  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
SETIC 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutines 
SELECT 

TRJGEN 

FUNCTION 

The  function  is  to  initialize  the  integration  list  and  other  parameters 
which  must  be  re-initialized  each  time  the  integration  is  re-started. 

USAGE 

A.  Calling  Sequence 
CaU  SETIC 

B.  Input 

1.  COMMON 

NDPR 
TEPOCH 
TSTEP 

TICRT 

2.  Calling  Sequence 

C.  Output 

1.  COMMON 

TG 

TCRASH 


TLIST 

TMINUS 

PMATl 

VMAT) 

FLVE 


Time  to  integrate  to  (min) 

Impact  flag 
=  0  not  impacted 

4  0  impact 

Numerical  integration  working  storage 

Flag  indicating  backward  integration 

Arrays  used  in  variational  equation 

formulation,  initialized  at  0 

Flag  for  variational  equations  compata- 

tion 


Total  number  of  Category  I  variables 
Minutes  from  midnight  day  of  epoch 
Starting  step  size  for  the  numerical 
integration  in  minutes 
x,  y,  z,  x,  y,  i  of  the  vehicle  at 
epoch  in  earth  radii  and  e.r./min 
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2.  Calling  Sequence 


D.  Error/Action  Messages 


SUBROUTINES  USED 

A.  Library 

B.  Program 
DAUX 
VPERT 


SETIC 


SETIC 


Figure  5»42.  SETIC  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
SETSTR 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 

To  convert  preset  and  input  values  from  external  to  internal  units. 
The  a  priori  normal  matrix  (SMAT)  is  processed  here. 

USAGE 

A.  Calling  sequence 
CALL  SETSTR 

B.  Input 


COMMON 

IRADT 

Column  21  of  the  JDC,  non-zero  if  ADT 
used  for  restart 

RC 

DAP  critical  range  in  kilometers 

VC 

DAP  critical  range  rate  in  kilometers  per 
second 

AN 

DAP  smoothing  time  in  seconds 

TBIAS 

DAP  time  bias  in  seconds 

RB 

DAP  range  bias  in  kilometers 

VB 

DAP  range  rate  bias  in  kilometers /second 

EB 

DAP  elevation  bias  (deg) 

AB 

DAP  azimuth  bias  (deg) 

SIGMH(l) 

Standard  deviation  for  Millstone  Hill 
range  data  (km) 

SIGMH(2) 

Standard  deviation  for  Millstone  Hill 
azimuth  data  (deg) 

SIGMH  (3) 

Standard  deviation  for  Millstone  Hill 
elevation  data  (deg) 

S IGMH  (4 ) 

Standard  deviation  for  Millstone  Hill 
range  rate  data  (km/ sec) 

IRESD 

Column  34  of  JDC,  non-zero  to  record 
residuals  on  ADT 

IPRCE 

Column  35  of  JDC,  non-zero  to  record 
core  ephemeris  on  ADT 

PTB(1,2.3) 

Value  of  the  preliminary  epoch  (the  point  at 
which  the  search  for  time  of  rise  is 
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PTB(1,  2,  3)(cont) 

initiated)  in  days,  hours,  and  minutes 
from  the  initial  epoch 

PTNULL(1,  2,  3) 

Value  of  the  pre- specified  epoch  in  days, 
hours,  and  minutes  from  the  initial  epoch. 

DRAGCD 

If  non-zero,  the  value  of  the  drag 

DRAGA 

coefficient  Cj- 

If  non-zero,  the  effective  area  of  the 
spacecraft,  for  use  in  calculating 

CjA.  (meters^) 

m 

DRAGM 

If  non-zero,  the  mass  of  the  spacecraft, 
for  use  in  calculating  C^A.  (kg) 

CKMFT 

DRAG 

m 

km/ft  ^ 

If  non-zero,  the  value  of  C^A  in  meters  / 
kilogram  m 

CM  TER 

RPGAM 

RPA 

Meters  per  earth  radii, 
y  in  radiation  pressure  model. 

Effective  area  of  spacecraft  for  radiation 
pressure  model  (meters2). 

RPM 

Mass  of  spacecraft  for  radiation  pressure 

RADPR 

SMAT 

model  (kg) 

yA/m  for  radiation  pressure  model. 

A  21—  cell  array  containing  the  a  priori 
ATA  matrix  in  Cartesian  coordinates 
(x, y, z,  x,  y, z )  stored  upper  triangular 
by  rows.  This  matrix  has  units  of 
kilometers  and  seconds. 

NSCALE 

Location  in  VSTR  of  scale  vector  for 
x,  y,z,  x,  y,  z  vector  and  matrix  con¬ 
versions  from  external  to  internal  units. 

NPR 

Number  of  parameters  in  solution  vector 

NATA 

(6). 

Location  in  VSTR  of  A^A,  A^b  matrix 
as  derived  from  an  ADT  from  a  previous 
curve  fit  on  MHESPOD.  The  matrix  is 
stored  augmented,  upper  triangular  by 
rows. 

DTYPE 

SMELM 

Type  of  initial  conditions. 

The  mean  elements  from  the  SPADATS  6 

CDEG 

card  element  set.  (Angles  in  deg) 

Degrees  per  radian. 

2.  Calling  sequence 
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C. 


Output 

1.  COMMON 

RC 

VC 

AN 

TBIAS 

RB 

VB 

EB 

AB 

SIGMH(l) 
SIGMH  (2 ) 
SIGMH(3 ) 
SIGMH  (4) 
IRESFD 
IRCE 

TB 

TNULL 

CDAD2M 

SGAMAM 

SMAT 

SMELM 


The  following  items  are  output  in  internal  units 

2-way  transit  time  in  half-microseconds 
Doppler  shift  magnitude  in  cycles  per 
second 

Computer  time  units 

Minutes 

Earth  radii 

Earth  radii /minute 

Radians 

Radians 

Earth  radii 

Radians 

Radians 

Earth  radii/minute 

Record  residuals  flag,  for  MHESPOD 
Record  core  ephemeris  flag,  for 
MHESPOD 

Preliminary  epoch  time  (minutes  from 
epoch ) 

Epoch  specification  (minutes  from  epoch) 

in  £t2/sl“B  2 

SyA  in  e .  r  / min 
m 

Stored  lower  triangular  un-augmented  in 
earth  radii  and  minutes 

Angles  in  radians,  mean  motion,  and  rates 
in  radians 


2.  Calling  sequence 


D.  Error/action  messages 
None 


E.  Internal  storage 

C  LIGHT 
S 

CKGSG 

F 


SUBROUTINES  USED 

A.  Library 
None 


Speed  of  light  (meters /second)  ^ 

Solar  constant  (kgm  meters /second  ) 
kg/slug 

Frequency  of  Millstone  Hill  transmitter  in 
cycles  per  second 
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B.  Program 

JCS  Sets  up  working  storage  for  potential 

calculation 

HUMAH  Scales  vector  and  matrices  from  internal 

to  external  units  and  vice  versa 


EQUATIONS 

To  convert  range  from  kilometers  to  2- way  transit  time: 


R 


R,  •  1000  •  4  x  106 
km  


2-way 


C  =  speed  of  light 

(meters  /  second) 


To  convert  range  rate  from  kilometers  to  second  to  doppler  shift 
magnitude  in  cycles  per  second: 

V  .  •  1000  •  2  •  F 

y  range  rate  _ 

v  doppler  C 
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Figure  5»43.  SETSTR  Flow  Diagram 
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SETSTR 


SETSTR 


Figure  5»43.  SETSTR  Flow  Diagram  (Continued) 
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SETSTR 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETSTR 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 
DPRLM  -  Input  Processor 

FUNCTION 

Function  is  to  scale  from  external  to  internal  units,  the  drag  and 
radiation  pressure  parameters;  and  set  up  working  storage  for  the 
simulation  of  the  Earth's  potential  model. 


USAGE 


A.  Calling  sequence 
CALL  SETSTR 


B.  Input 

1.  Blank  COMMON 


CKMFT 

CMTER 


km /ft 
meters  /  er 


2.  Labeled  COMMON 


/INPP/ 

DRAG 


Ballistic  coefficient 


DRAGCD 

DRAGA 


C^  coefficient  of  Drag 


DRAGCD 

DRAGA 

DRAGM 


A  area  in  DRAG  term 

(meter^) 


may  be  in¬ 
put  in  place 


DRAGM 


m  mass  in  DRAG  term 
(kilograms) 


of  DRAG 


RADPR 


Radiation  pressure 
parameter 
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RPGAM 


Y  in  RADPR,  reflectivity 
constant. 


RPGAM 

RPA 


RPA 


A  in  RADPR,  area  of 
vehicle  (meter6) 


►  RPM  may 


be  input 
in  place 


RPM 


m  in  RADPR,  mass  of 
vehicle  (kilograms) 


of  RADPR 


3.  Calling  sequence 


C.  Output 


1 .  Blank  COMMON 


CDAD2M 


CDA/2m 


Ballistic  drag  term 


(ft2/slug) 


(internal  units) 


SGAMAM 


SVA/m 


Radiation  pressure 
parameter 

(e  .  r  .  3/min2) 


2.  Labeled  COMMON 

3.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
JCS 
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SETTAB 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETTAB 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 
INPUT 


FUNCTION 

Function  is  to  set  up  the  VSTR  (NIDP),  VSTR  (NPRCD),  VSTR 
(NPBIS),  VSTR  (NSCALE),  VSTR  (NBDNS),  and  DTMP  tables 


USAGE 


A.  Calling  sequence 
Call  SETTAB 


B.  Input 


Blank  COMMON 


CMTER 

CDEG 

CKMER 

CKMFT 

NIDP 

NBDNS 

NSCALE 


NPR 

NDPR 

NPRCD 

NPBIS 


meters/ e .  r  . 
deg/  radian 
km/ e .  r  . 
km/  ft 

Identifier  for  table  indicating  Category  1  type 
variables  to  be  solved  for 

Starting  location  in  VSTR  for  the  bounds  used 
by  LEGS 2  subroutine 

Identifies  the  starting  location  of  the  list  of 
conversion  factors  which  convert  all  solution 
vectors  and  associated  matrices  from 
machine  units  to  output  units 
Number  of  all  parameters  to  solve  for 
Number  of  all  differential  +  initial  parameters 
to  solve  for  (Category  1) 

Identifies  table  for  definition  of  Category  2 
variables  to  be  solved  for 
Identifies  table  for  current  estimates  of 
Category  2  variables 


Labeled  COMMON 
/iNPP/ 

DATA  Temporary  input  buffer  specifying  to  this  sub¬ 

routine  the  CAT1  variables,  CAT2  variables, 
bias  estimates,  scale  vector  and  bounds 
vector. 
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3.  Calling  sequence 

C.  Output 

1.  Blank  COMMON 

2.  Labeled  COMMON 

/inpr/ 

DTMP  Buffer  for  station  number  and  code  word  for 

those  stations  with  code  word  *0 

/vstr/ 

VSTR  Floating  point  variable  storage 

IVSTR  Fixed-point  variable  storage 

3.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SETTAB 


Figure  5-44.  SETTAB  Flow  Diagram 
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STSMAT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
STSMAT 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 
INPUT 

FUNCTION 


The  function  is  to  convert  the  upper  triangular  S  matrix  in  DATA 
storage  from  human  units  to  machine  units  and  then  transfer  to  VSTR 
(NATA). 

USAGE 


A.  Calling  sequence 
Call  STSMAT 


B.  Input 


1.  Blank  COMMON 

NSCALE  Identifies  the  starting  location  of  the  list  of 

conversion  factors  which  convert  all  solution 
vectors  and  associated  matrices  from  machine 
units  to  output  units. 

NPR  Total  number  of  parameters  to  solve  for 

NATA  Identifies  the  starting  location  of  where  the 

triangular  ATA  is  stored. 

DCFLG  NRTPOD  control  flags,  columns  41-50  of  JDC. 


2.  Labeled  COMMON 
/iNPP/ 

DATA  The  a  priori  S  matrix  is  input  into  thw  DATA 

array  in  human  units  starting  at  DATA  (102). 


3.  Calling  sequence 


C.  Output 

1.  Blank  COMMON 
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STSMAT 


STSMAT 


2.  Labeled  COMMON 

/vstr/ 

VSTR  (NATA)  Identifies  the  starting  location  of  where  the 
upper  triangular  S  matrix  is  stored  in 
variable  storage 

3.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

HUMAH  Converts  a  vector  or  a  matrix  from 

machine  units  to  human  units  or  vice 
versa 
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SUPMAT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SUPMAT 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 


INPUT 


FUNCTION 

The  function  is  to  move  the  initial  update  matrix  from  temporary 
storage  (DATA)  to  permanent  storage  VSTR  (NR)  and  convert  from 
human  units  to  machine  units. 

USAGE 

A.  Calling  sequence 
Call  SUPMAT 

B.  Input 

1.  Blank  COMMON 


NPR 

NR 


NSCALE 


Total  number  of  parameters  to  solve  for 
Identifies  the  starting  location  in  variable 
storage  of  (A^A)-! 

Identifies  the  starting  location  of  the  list  of 
conversion  factors  which  convert  all  solution 
vectors  and  associated  matrices  from 
machine  units  to  output  units 


2.  Labeled  COMMON 


/iNPP/ 

DATA 


Data  array  containing  the  a  priori  update 
matrix  in  output  units  starting  at  DATA  (925) 


3.  Calling  sequence 


C.  Output 


D.  Error/action  messages 
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SUPMAT 


SUBROUTINES  USED 

A.  Library 


B.  Program 

HUMAH 

Converts  a  vector  or  a  matrix  from  machine 
units  to  human  units  or  vice  versa 
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TPRLM 


SUBROUTINE  IDENTIFICATION 


A. 


Title 

TPRLM 


B.  Program 
NR T POD 

C.  Called  by  Subroutine 
TRJPAO 


FUNCTION 

The  initialization  routine  for  the  trajectory,  curve  fit,  and  print- 
update  segments.  This  routine  is  entered  before  the  first  iteration 
of  the  curve  fit,  and  before  the  generation  of  the  trajectory  for  the 
print-update  segment. 


USAGE 


A. 


B. 


Calling  Sequence 
Call  TPRLM 


Input 

1. 

COMMON 

CKMER 

CDEG 

NDPR 

- 

NPR 

NIDP 

NPBIS 

DCF  LG 

TNOMX 

TNOMP 

CDAD2M 

KONTRL 

2. 

Calling  Sequence 

Kilometers  per  earth  radii 
Degrees  per  radii 

Number  of  CAT!  variables  in  solu¬ 
tion 

Total  number  of  solution  variables 
Start  of  CAT1  identifiers  on  VSTR 
Start  of  VSTR  table  of  initial  bias 
estimates  for  CAT2  variables 
Column  41-50  of  the  JDC 
Initial  trajectory  condition  in  Cart¬ 
esian  coordinates  (kilometers  and 
seconds) 

Initial  trajectory  conditions  in  polar 
coordinates  (kilometer,  seconds, 
degrees) 

C^A  (feet  squared/slug) 

2m 

=  1  for  curve  fit  entrance,  =  2  for 
print-update  entrance 
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TPRLM 


C.  Output 


The  VSTR  table  of  the  initial  values 
for  each  CAT1  and  CAT2  variable 
The  Cartesian  initial  trajectory  condi¬ 
tions  in  earth  radii  and  minutes 
The  polar  initial  trajectory  conditions 
in  earth  radii,  radians,  and  minutes 
The  best  RMS  initialized  at  10^ 

The  iteration  count  unitialized  at  1 
(if  KONTRL  *  1) 

The  DELTT  pointer,  initialized  at  1 
(if  KONTRL  =  2) 

2.  Calling  Sequence 

D.  Error/Action  Messages 


E.  Internal  Storage 

SUBROUTINES  USED 
A.  Library 


1.  COMMON 
NPAR 

TICRT 

TIPOL 

TSUSB 

NITCT 

NDTCT 


B.  Program 
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TRAJ 


SUBROUTINE  IDENTIFICATION 

A.  Title 


TRAJ 


B.  Program 
NRTPOD 


C.  Called  by  Subroutine 


TRJGEN 

FUNCTION 

Integrate  the  equations  of  motion  and  up  to  24  variational  equations 
to  a  specified  time.  The  routine  uses  Runge-Kutta  as  a  starter  to  build 
eighth  order  difference  tables  for  a  Cowell  method  of  numerical  integra¬ 
tion.  The  routine  will  automatically  exit  with  a  flag  set  to  indicate  earth 
impact. 

USAGE 

A.  Calling  sequence 


Call  TRAJ(TN) 


B.  Input 

1.  COMMON 


HMAX 

HMIN 


Maximum  allowable  step  size 
Minimum  allowable  step  size 


TLIST 


Input  and  storage,  at  output  values 
consistent  with  T 

GM  of  earth  (Earth  radii  and  minutes) 
Ellipticity  of  earth 
1  X  10-8 

Altitude  below  which  impact  test  will 
be  made  (earth  radii) 

The  number  of  variational  parameters 

in  the  integration  list 

Non-zero  if  fixed  step  Runge-Kutta 

desired 

If  0,  evaluate  variational  equations 
only  on  "predictor"  steps 


CMU 


CRASHB 

CRASHE 

CRASHM 


NDPR 


NRRR 


SKIP 
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TRAJ 


2.  Calling  sequence 

TN  Time  to  integrate  to  (Minutes  from  epoch) 

C.  Output 


1.  COMMON 
TRAJX(1  -3) 

TRAJX(4-6) 

TR  AJX(7  -9) 
TRAJX(1 0- 1 5) 

TRAJX(l6-21) 

TRAJX(52-57) 

T  CRASH 
F  LVE 

2.  Calling  sequence 

SUBROUTINES  USED 
A.  Program 
DAUX 

COMMENTS 


x,  y,  z  Output  .  .  .  consistent  with 
TN  or  impact  time 
x,  y,  z 

i!,y,  s 

6  x.6  y,6  z,6  i.6^,6  z  first 
variation 

&2x, &2Y, S^z, 6^y, 6^z  second 
variation 


68X'  68y,68Z’  68x’  68y’ 68Z  eighth 
variation 

Set  non-zero  if  impact  occurs 
Non-zero  to  indicate  predictor  steps 


The  integration  list  must  be  initialized  before  calling  TRAJ.  If 
impact  occurs,  the  output  is  at  the  impact  time,  not  TN.  The  initializa 
tion  flag  set  non-zero  externally,  is  returned  zero  by  TRAJ. 
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TRAJ 


Figure  5-45.  TRAJ  Flow  Diagram 
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TRAJ 


TRAJ 


Figure  5-45.  TRAJ  Flow  Diagram  (Continued) 
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TRAJ 


TRAJ 


Figure  5-45.  TRAJ  Flow  Diagram  (Continued) 
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TRAJ 


Figure  5-45.  TRAJ  Flow  Diagram  (Continued) 
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TRAJ 


COMPUTE  1ST  DERIVATIVE 
OF  REFERENCE  SURFACE 
C  =  f' 

USE  Y,  YP 


COMPUTE  2ND  DERIVATIVE 
OF  REFERENCE  SURFACE 
D  =  f" 

USE  Y,  YP,  YPP 


COMPUTE  3R 
OF  REFERENC 
E  = 

USE  Y,  YP, 

D  DERIVATIVE 

:e  surface 

f”1 

YPP,  DIF 

1 

r 

C  OMPUTE  h$'  AS 
FUNCTION  OF  f,f',f\f,n 

A  =  hs* 

COMPUTE  hs  AS 

FUNCTIO  N  OF  f,  f',  f" 
hs  =  TIME  INCREMENT 
TO  IMPACT 
HS  =  hs 


TCRASH  =  1.0 
DP  A  =  HS 
TN  =  T  +  DPA 


Figure  5-45.  TRAJ  Flow  Diagram  (Continued) 
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TRAJ 


COMMON  (TLIST)  Storage 


TLIST 


Program  Tag 


Description 


FLAG 


2 

T 

Current  time 

3 

H 

Current  step 

size 

4-30 

Y(1 -27) 

yr  y2*  •  •  ' 

’  yn 

31-57 

YP(  1  -27) 

yl'  y2’  *  *  * 

’  yn 

58-84 

YPP(1  -27) 

ii  •  i 

yr  y2'  ■  *  * 

’  yn 

Initialization  parameter - initialize  when 

nonzero 


These  values 
must  be 
supplied 
when 

FLAG  4  0 


85-192  TR(l-27,  1-4)  Intermediate  storage 


2nd  der. 


N=  3(NDPR  +  1) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
TRISE 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 


To  search  for  and  establish  the  time  of  rise  for  the  current  satellite 
relation  to  Millstone  Hill  (or  whatever  is  the  first  station  in  the  master 
sensor  table  VSTR(NSTAT)).  The  time  for  rise  is  assumed  to  occur  when 
the  elevation  is  -  -1.  5°.  The  search  is  automatically  terminated  if  rise 
does  not  occur  within  60  minutes  of  the  starting  point  (TB). 

USAGE 


A.  Calling  sequence 
CALL  TRISE 


B.  Input 

1.  COMMON 

VSTR(NSTAT) 

TALFAG 

TG 

CDEG 

KOUT 

TB 

TEPOCH 


The  coordinates  and  related  quantities  for 
the  Millstone  Hill  radar. 

Right  ascension  of  Greenwich  at  0  hours, 
day  of  epoch  (radians). 

Initially,  this  is  the  time  at  TB,  the  time 
at  which  the  trajectory  is  currently 
defined. 

Degrees  per  radian. 

Number  of  the  output  device. 

Time,  in  minutes  from  epoch,  to  initiate 
the  search  for  rise.  (Initially  TB  =  TG). 
Time  of  epoch,  minutes  from  0  hours. 


2.  Calling  sequence 
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TRISE 


TRISE 


* 

C.  Output 

1.  COMMON 

TG  The  time  of  rise,  in  minutes,  from  0 

hours  day  of  epoch. 


2.  Calling  sequence 


D.  Error/action  messages 

The  program  will  take  an  error  exit  if  either  of  the  following 
messages  are  printed: 

***NO  RISE  FOUND  WITHIN  60  MINUTES  OF  TB. 
♦♦♦IMPACT  OCCURRED  WHILE  SEARCHING  FOR  TRISE. 

These  messages  are  printed  both  on-  and  off-line. 

E.  Internal  storage 

T.CRASH  Set  non-zero  by  TRAJ  if  earth  impact 

occurs. 


The  following  items  are  transmitted  internally  between 
TRISE  and  PRELIM. 


PSTAT  The  working  sensor  table,  preset  with 

VSTR(NSTAT  +  1),  VSTR(NSTAT+2), 
VSTR(NSTAT+9) 

PUBS(2)  The  current  trajectory  time 

PVI(3)  Sin  E  where  E  =  elevation 

SUBROUTINE  USED 


A,  Library 

AS  IN  .  EXIT. 

.  FVIO.  -  .  FWRD. 
.  FPRN.  .  FFIL. 


B.  Program 

TRAJ  Integrates  equations  of  motion 

PRELIM  Computes  elevation  and  other  observable 

quantities 


EQUATIONS 
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TRISE 


Figure  5-46. 


TRISE  Flow  Diagram 


5-373 


TRJGEN 


TRJGEN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJGEN 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutine 
TRJGEN 

FUNCTION 

Driver  for  the  trajectory  link.  Controls  the  logic  associated  with 
the  trajectory  integration  and  the  generation  of  the  trajectory  tape. 

USAGE 

A.  Calling  Sequence 
Call  TRJGEN 

B.  Input 

1.  COMMON 

KOUT 
TEPOCH 
DTMAX 

TUBSEF 

PLSTSN 
TG 

TCRASH 
KONTRL 


2.  Calling  Sequence 


Output  tape  (print) 

Time  of  epoch,  minutes  from  0  hours 
Maximum  allowable  time  internal  for 
an  observation  -  in  days  since  epoch 
Flag  denoting  when  the  last  observa¬ 
tion  has  been  processed  from  tape. 

Set  4  0  when  Hend  of  file11  encountered. 
Station  ID  for  previous  observation 
Integration  time  to  go.  Minutes  from 
0  hours,  day  of  epoch 
Flag  indicating  earth  impact.  Non¬ 
zero  if  inpact  has  occurred 
Flag  indicating  mode  of  NRTPOD 

KONTRL  =  1  Execute  TRJGEN  for 
curve  fit  and  trajec¬ 
tory 

KONTRL  =  2  Execute  TRJGEN  for 
trajectory  only 
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TRJGEN 


C.  Output 

1.  COMMON 

2.  Calling  Sequence 

D.  Error/Action  Messages 

1.  Action  messages 

"STAR T  TRAJECTORY" 
and 

"END  TRAJECTORY" 

Occur  when  the  program  begins  executing  the  trajectory  link 
and  when  execution  of  the  trajectory  link  terminates 

SUBROUTINES  USED 

A.  Library 

B.  Program 

SETIC 
SELECT 
PARSET 


TRAJ 
TRJ  TAP 


Initializes  integration  lists 

Selects  next  observation 

Sets  up  the  PSTAT  sensor  information 

array  from  master  sensor  table  for 

current  observation 

Integration  subroutine 

Writes  trajectory  tape 
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TRJGEN 


Figure  5-47.  TRJGEN  Flow  Diagram 
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TRJGET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJGET 

B.  Segment 

NRTPOD  partials  -  least  square 

C.  Called  by  subroutine 
DCITER 

FUNCTION 

TRJGET  reads  one  trajectory  record  from  the  trajectory  tape  and, 
if  necessary,  sets  the  impact  control  flag. 

USAGE 

A.  Calling  sequence 
Call  TRJjET  (TG) 

B.  Input 

1.  COMMON 

ITRJTP  Trajectory  tape  number 

TEPOCH  Minutes  from  midnight  day  of  epoch  to  epoch 

2.  Calling  sequence 

TG  Observation  time  for  which  a  corresponding 

trajectory  record  is  to  be  read 

3.  Tape  input 

The  trajectory  tape  generated  by  the  trajectory  segment 


C.  Output 

COMMON 


1.  TRAJX  (1  -  9)  (x,  y,  z,  x,  y,  z,  x,  y,  z) 

2.  TRAJX  [lO  +  6(i-l)  ..  .  15+6(i-l}| 


I  8x  ,  8y  8z  8x  _  _ 

lap i  3P{  ’  9Pi  ’  9pi  ’  9p l  ’  api 


1 t 


8z 


i  =  1,  ....  NDPR;  NDPR  £  7 
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TRJGET 


TRJGET 


3.  T  CRASH 

SUBROUTINES  USED 

A.  Library 
.  FBLT. 

.  FRDB. 

.  FVIO. 


=  -1,  if  impact  is  pre -epoch 
=  1,  if  impact  is  post-epoch 
=  0,  if  no  impact 
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TRJPRO 


TRJPRO 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJPRO 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutine 
NRTPOD 

FUNCTION 

Main  driver  controlling  the  coordination  of  all  activities  involving 
the  three  segments  trajectory  segment,  curve  fit  segment,  and  the  tra¬ 
jectory  print  and  update  segment. 

USAGE 

A.  Calling  Sequence 
Call  TRJPRO 

B.  Input 

1.  COMMON 
KONTRL 

DCFLG 
IFTEX 


PSTFLG 
2,  Calling  Sequence 

C.  Output 

1.  COMMON 

2.  Calling  Sequence 


Flag  indicating  mode  of  NRTPOD 
KONTRL  =  1  Curve  fit  and  trajectory 
=  2  Trajectory  only 
JDC  card  options  (card  column  41-50) 
Exit  flag  from  subroutine  FIT 
IFTEX  -  1  Solution  has  converged 
=  2  Maximum  iterations  ex¬ 
ceeded  and  converging 
=  3  Failed  K  BOUNDS/8 
-  4  Normal  return 
=  5  Maximum  iterations  ex¬ 
ceeded  and  converging 
IDC  options  (card  columns  51-60) 
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TRJPRO 


TRJPRO 


D.  Error /Action  Messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
TPRLM 

TRJGEN 

DCITER 

PRUDRV 


Performs  necessary  initialization 
prior  to  a  differential  correction 
pass 

Driver  for  the  trajectory  segment; 
generates  the  trajectory  tape 
Driver  for  the  curve  fit  segment 
Trajectory  print  and  update  driver 
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TR J  PRO 


TR J  PRO 


Figure  5-48.  TRJPRO  Flow  Diagram 
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TRJTAP 


TRJTAP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJTAP 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutine 
TRJGEN 

FUNCTION 

Function  is  to  write  the  trajectory  tape  used  by  the  curve  fit  and 
trajectory  print  and  update  segments. 


USAGE 

A.  Calling  Sequence 
CaU  TRJTAP 

B.  Input 

1.  COMMON 

ITRJTP 

TG 

TRAJX 

TCRASH 

2.  Calling  Sequence 
IOPT 


C.  Output 

1.  COMMON 

2.  Calling  Sequence 


Trajectory  tape  number 
Integration  time  to  go  . . .  minutes 
from  0  hours  day  of  epoch 
Integration  coordinates  at  time  TG: 
position,  velocity,  acceleration, 
partials  of  position  and  velocity 
w.  r.  t.  the  category  1  variables 
Impact  flag  -  non-zero  if  impact 
has  occurred 


Flag  indicating  type  of  trajectory 
record  written  on  trajectory  tape 

IOPT  =  1  Writes  a  standard  data 
record 

=  2  Writes  a  pseudo  ’’end  of 
file"  record 
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TRJTAP 


TRJTAP 


D.  Error/Action  Messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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TRJTAP 


TRJTAP 


Figure  5-49.  TRJTAP  Flow  Diagram 
5-384 


TSET 


TSET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TSET 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
PREMOD 

FUNCTION 


To  establish  TNODE,  the  final  time  of  interest  for  the  core 
ephemeris.  TNODE  will  be  the  smallest  of: 


a)  The  time  for  set  for  this  satellite  relative  to  Millstone  Hill. 

(Set  is  defined  as  elevation  -  - 1.  5*  ) 

b)  TEPOCH  +  60  minutes 

c)  TEPOCH+TF,  the  maximum  time  to  be  considered  for  the  core 
eph  emeris 

USAGE 

A.  Calling  sequence 
CALL  TSET 


B.  Input 

1.  COMMON 
•  VSTR(NSTAT) 

TG 

TEPOCH 

TF 


CDEG 

KOUT 


The  first  entry  in  the  master  sensor 
table,  assumed  to  be  Millstone  Hill. 
Upon  entrance,  the  current  integration 
time.  This  6hould  be  the  value  of 
MHESPOD  epoch. 

Epoch  time,  minutes  from  midnite. 

The  final  time  to  be  considered  for  the 
core  ephemeris,  in  minutes  from 
epoch. 

Degrees  per  radian. 

Number  of  the  output  device. 


2.  Calling  sequence 
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TSET 


TSET 


C.  Output 

1.  COMMON 

TNODE  The  final  time  of  interest  for  the  core 

ephemeris,  in  minutes  from  0  hours 
day  of  epoch. 

2.  Calling  sequence 


D.  Error/action  messages 

The  program  will  take  an  error  exit  if  the  following  message 

is  printed: 

♦♦♦IMPACT  OCCURRED  WHILE  SEARCHING  FOR  TSET. 

This  message  is  printed  both  on-  and  off-line. 

E.  Internal  storage 

TCRASH  Set  non-zero  by  TRAJ  if  earth  impact 

occurs. 

The  following  items  are  used  in  the  PRELIM  interface. 

PUBS(2)  Trajectory  time  at  which  elevation  is 

desired 

PSTAT  Working  sensor  table;  contains  VSTR 

(NSTAT+1)  through  VSTR(NSTAT+9) 
PVI(3)  Sin  E,  where  E  =  elevation 

SUBROUTINES  USED 

A.  Library 

ASIN  .  EXIT. 

.  FVIO.  .  FWRD. 

.  FPRN.  .  FFIL. 

B.  Program 

TRAJ  Integrates  equations  of  motion 

PRELIM  Calculates  elevation  angle 


EQUATIONS 
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TSET 


TSET 


Figure  5-50.  TSET  Flow  Diagram 
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UBSGET 


UBSGET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
UBSGET 

B.  Segment 
MHESP0D 

C.  Called  by  subroutine 
SELECT 

FUNCTION 

Function  is  to  get  next  observation  time  from  variable  storage. 


USAGE 

A.  Calling  sequence 
Call  UBSGET 


B.  Input 

1.  COMMON 
DBUFS 

VSTR  (NSTAT) 

TEMP 

TUBSEF 

IPFRST 

KB  CT 

NDAPOB 

NITCT 

NOOBS 

NSTAT 

SIGMH 


Auxiliary  buffer  storage 

The  starting  location  of  the  table  of 
observations 

Temporary  storage 

Sentinel  block  detection  flag 

0  to  indicate  first  time  in  RADR 

Logical  tape  number  for  BCT  tape 

Number  of  DAP  observations 

Iteration  counter 

Number  of  pre-epoch  observations 
on  BCT  tape 

Station  ID  associated  with  DAP 
observations 

Standard  deviations  of  DAP  observations 


2.  Calling  sequence 
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UBSGET 


UBSGET 


C.  Output 

1.  COMMON 


2. 


PUBS  (1 ) 

Sensor  number  , 

(2) 

Time  in 

min  from  0  day 

(3) 

Range  measurement 

(4) 

Azimuth 

measurement 

(5) 

Elevation  measurement 

PSIG  ( 1) 

°-R  ] 

(2) 

"A 

i 

(3) 

°E 

)  Observation 

(4) 

°RDT  J 

Calling  seque 

nee 

SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 


5-3^0 


UBSGET 


UBSGET 


Figure  5-51.  UBSGET  Flow  Diagram 
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UBSGET 


UBSGET 
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UBSGET 


UBSGET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
UBSGET 

B.  Program 
NRTPOD 

C.  Called  by  subroutines 
DCITER 

SELECT 

FUNCTION 

To  process  the  observation  tape.  The  observation  data  are  moved 
into  VSTR,  from  VSTR(NUBS)  to  VSTR  (COMLST). 

USAGE 

A.  Calling  Sequence 
Call  UBSCET 

B.  Input 

1.  COMMON 

COMLST  The  last  cell  of  VSTR 

MT  The  observation  tape  number 

NUBS  The  start  of  the  observation  storage 

in  VSTR 

2.  Calling  Sequence 

C.  Output 

1.  COMMON 

PUBS 


TUBSEF 


The  next  observation  to  be  processed 


.  Station  ID 

,  Time  (minutes  from  0 
hours  day  of  epoch) 

.  Range  (earth  radii) 

.  Azimuth  (radians) 

,  Elevation  (radians) 

,  Range  rate  (earth  radii/ 
minute) 

,  Not  used 
Set  non-zero  when  all  observations 
have  been  processed 


PUBS(l). 

(2). 

(3) . 

(4) . 

(5) . 

(6) . 

(7). 
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UBSGET 


UBSGET 


2.  Calling  Sequence 


D.  Error/Action  Messages 


E.  Internal  Storage 

1.  COMMON 
BYPASS 

IF  LAG 

SKIPC 

2.  Internal 
J 


SUBROUTINES  USED 
A.  Library 


First  time  in  flag,  assumed  initially 
0,  set  to  133.  5  following  the  initial 
entrance 

End  of  tape  indicator,  assumed 
initially  0,  set  to  777  when  the  last 
record  of  the  observation  tape  has 
been  moved  to  VSTR 
Not  used 


A  pointer  in  VSTR,  internally  incre¬ 
mented  to  indicate  the  next  observa¬ 
tion  from  VSTR  to  be  processed 


B.  Program 

MOVEVS  Moves  a  7  cell  observation  from  VSTR  to  PUBS 

EQUATIONS 
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UBSGET 


UBSGET 


Figure  5-52.  UBSGET  Flow  Diagram 
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UBSGET 


UBSGET 


Figure  5-52.  UBSGET  Flow  Diagram  (Continued) 

5-  396 


UPDATE 


UPDATE 


SUBROUTINE  IDENTIFICATION 

A.  Title 

UPDATE 


B.  Segment 
PREMOD 


C.  Called  by  subroutine 
PREMOD 

FUNCTION 

To  update  an  a  priori  normal  matrix  (A^A)  to  the  MHESPOD  epoch. 
This  routine  assumes  that  the  variational  equations  for  x,y,z,  x,  y,  z, 
have  been  integrated  from  the  given  epoch  of  A^A  to  the  desired  epoch  and 


that 


TRAJX  (1-6) 

TRAJX  (7-12) 


9xt  9yt 

94t 

m  *  m 

9x 

ax 

9x 

o 

o 

o 

3xt  9yt 

9z^ 

9yo  8yo 

•  §  * 

9yo 

9x  9y 

TRAJX  (31-36)  =  -  .  ~ 

o  z  o  z 
o  o 


subscript  o  input  epoch 


9  z 
*  ~3z 


L 

o 


subscript  t  =>  desired  epoch 


USAGE 

A. 

Calling  sequence 

CALL  UPDATE 

B. 

Input 

1.  COMMON 

SMAT  (1-21) 

The  a  priori  normal  matrix  stored  upper 

triangular  by  rows  in  units  of  minutes. 
The  rows  and  columns  are  assumed  in 
the  order  of  x,  y,  z,  x,  y,  z. 
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UPDATE 


UPDATE 


TRAJX  (1-36) 

KOUT 

2.  Calling  sequence 


The  stale  transition  matrix  describing 
the  partial  of  Cartesion  position  and 
velocity  at  the  desired  update  time  with 
respect  to  the  given  epoch  of  A^A. 

(See  FUNCTION)  units  of  minutes. 
Number  of  the  output  device. 


C.  Output 

1.  COMMON 
VSTR(NATA) 


The  updated  A^A  matrix  stored  upper 
triangular  by  rows,  and  augmented 
with  a  0  column  vector  corresponding 
to  ATb: 


if  a..  =  updated  A^A 


VSTR(NATA). . .  VSTR(NATA+6)  =  an>  a12,a13, 


•al6*  0 


VSTR(NATA+7). ..  VSTR(NATA+12)  =  a22,  a^,  ...  a26,  0 


VSTR(NATA+25),  VSTR(NATA+26) 
2*  Calling  sequence 


a66'  0 


D.  Error/action  messages 


E.  Internal  storage 

A  (6,6) 

B  (6,6) 

C  (6,6) 

D  (1-21) 

E  (1-21) 


Holds  the  transpose  of  TRAJX  (1-36) 

The  inverse  of  A  (6,  6) 

The  transpose  of  B  (6,  6) 

The  contents  of  SMAT  stored  lower 
triangular  by  rows 

The  updated  normal  matrix  stored  lower 
triangular  by  rows.  (See  equations) 
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UPDATE 


UPDATE 


SUBROUTINES  USED 
A.  Library 


B.  Program 

MABAT  Triple  matrix  product  routine 

JCBINV  Computes  the  inverse  of  a  state 

transition  partials  matrix. 


EQUATIONS 


<ATA)t 
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UVECT 


UVECT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
UVECT 

B.  Segment 
MHESPOD 
PREMOD 

C.  Called  by  subroutines 
RPRESS 

FUNCTION 

Function  is  to  unitize  a  three-dimenional  vector. 

USAGE 

A.  Calling  sequence 
CALL  UVECT  (A(I),  B,  C) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 
A 
I 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

B  Name  of  array  containing  unitized  vector 

C  Magnitude  of  original  vector  A 

D.  Error/action  messages 


Name  of  array  containing  the  vector 

Subscript  locating  x  component  of 
desired  vector  in  A 
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UVECT 


UVECT 


SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 

EQUATIONS 
C  =  A 
B  =  X/C 


VAREQ 


VAREU 


SUBROUTINE  IDENTIFICATION 


A.  Title 
VAREQ 

B.  Segment 

MHESPOD 

PREMOD 

NRTPOD 

C.  Called  by  subroutine 
DAUX 

FUNCTION 


Function  is  to  account  for  the  central  body  and  effects  and  to 
evaluate  the  second  derivatives  for  the  variational  equations. 

USAGE 


A.  Calling  sequence 
Call  VAREQ 


B.  Input 


1 .  COMMON 

CMU 

TRZ 

TR3 

TR5 

TLIST 

PMAT 

VMAT 

FJ 

NDPR 


GM  of  Earth 

Magnitude  squared  of  the  radius  vector  from 
the  center  of  the  Earth  to  the  vehicle 
Magnitude  cubed  of  the  above  vector 
Magnitude  to  the  fifth  power  of  the  above  vector 
Numerical  integration  working  storage 
Matrix  of  position  dependent  effects  in  the 
variational  equations 

Matrix  of  velocity  dependent  effects  in  the 
variational  equations 

Array  containing  the  desired  zonal  harmonic 
constants  (Jj,  J2.  •  *  •  ,  J12) 

Number  of  Category  1  variables  being  solved  for 


5-403 


VAREQ 


VAREQ 


x2S  -  U 

xyS 

xzT 

PMAT  =  PMAT  + 

xyS 

y2S  -  U 

yzT 

xzT 

yzT 

z2T  -  3U 

i(€)=PMATK)+VMATK)  i  =  1’2 

where 

9jT  _  f  9x  9y  9zl 

^p7  "  |^9p.  ’  ^p7  ’  3p"  j 


NDPR 
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VPERT 


VPERT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
VPERT 

B.  Segment 
MHESPOD 
PREMOD 

C.  Called  by  subroutines 
SETIC 

FUNCTION 

Function  is  to  compute  the  partials  of  the  Cartesian  coordinates  with 
respect  to  desired  Category  1  parameters  and  to  initialize  the  integration 
list  with  these  partials. 

USAGE 

A.  Calling  sequence 
Call  VPERT 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

TL.IST  Numerical  integration  working  storage 

2.  Calling  sequence 

D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 

COSF 

SINF 

B.  Program 
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VPERT 


VPERT 


EQUATIONS 

Initialize  variational  equations. 
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WEOFT 


WE  OFT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
WEOFT 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

Function  is  to  write  a  terminal  record  of  1.  0's  on  the  NRTPOD 
observation  tape.  The  record  size  is  253  words. 

USAGE 

A.  Calling  sequence 
Call  WEOFT 

B.  Input 

1.  Blank  COMMON 

MT  Symbolic  observation  tape 

2.  Labeled  COMMON 

3.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 


B.  Program 
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WRTCOM 


WRTCOM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
WRTCOM 

B.  Segment 
PREMOD 

C.  Called  by  subroutine 
WRTCOM 

FUNCTION 

Write  the  MESCOM  common  record  on  the  BCT  tape. 

USAGE 

A.  Calling  sequence 
CALL,  WRTCOM 

B.  Input 

1.  COMMON 

KBCT  Logical  tape  number  of  the  BCT 

2.  Calling  sequence 

C.  Output 
None 

A  900-word  binary  record  is  written  on  the  BCT 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

.  FVIO.  .  FBLT. 

.  FWRB.  .  FWLR. 

B.  Program 

EQUATIONS 
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WRTOBS 


WRTOBS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
WRTOBS 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

Function  is  to  write  observations  on  the  observations  tape  in  blocks. 
The  block  size  is  a  full  253  word  record. 

USAGE 

A.  Calling  sequence 

Call  WRTOBS  (STORE) 

B.  Input 

1.  COMMON 


MT 

NMBER 


Symbolic  observations  tape 

Total  number  of  observations  to  be  written 

on  the  observation  tape 


2.  Calling  sequence 


STORE 


Starting  location  of  the  observations  array 
to  be  written  on  tape 


C.  Output 


1.  COMMON 


2.  Calling  sequence 


D.  Error/action  messages 
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WRTOBS 


WRTOBS 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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6.  COORDINATE  SYSTEMS 


This  section  describes  and  illustrates  the  various  coordinate  systems 
used  by  PREMOD  -MHESPOD  and  NRTPOD  either  in  receiving  or  in  pre¬ 
senting  the  results. 

The  following  are  definitions  of  terms  applicable  to  the  different  co- 


ordinate  systems: 

Vernal  Equinox: 

That  point  of  intersection  of  the  ecliptic  and 
celestial  equator  where  the  sun  crosses  the 
equator  from  south  to  north  in  its  apparent 
annual  motion  along  the  ecliptic 

-Cquator: 

The  great  circle  intersection  of  the  celestial 
sphere  and  a  plane  containing  the  center  of 
mass  perpendicular  to  the  rotating  axis  of 
the  earth 

True  of  (Epoch  or  Date) 

The  actual  position  at  a  given  time  of  the 
vernal  equinox  including  both  precession 
and  nutation 

Mean  of  (Epoch  or  Date)  A  fictitious  equinox  whose  position  is  that 


of  the  vernal  equinox  at  a  particular  time 
with  the  effect  of  a  nutation  removed 

Osculating  Elements: 

The  elements  of  an  instantaneous  orbit 
which  are  tangent  to  the  actual  trajectory, 
having  the  same  position  and  velocity  at 
that  time 

Date: 

An  exact  time;  e.  g.  ,  the  date  of  an  observa¬ 
tion  is  the  exact  time  at  which  it  was  made 

Epoch: 

Some  initial  reference  instant  of  time 
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6.  1  EARTH  CENTERED  INERTIAL  CARTESIAN  SYSTEM 

The  position  and  velocity  of  a  body  at  point  P  are  P  =  P(x,  y,  z,x,y,  z). 


Z 


whe  re 

O  is  the  geocenter 

V  is  the  velocity  vector 

X  is  a  vector  from  O  in  the  equatorial  plane  directed  to  the  true 
vernal  equinox  at  0.  Oh  universal  time  on  the  day  of  epoch 

Y  is  a  vector  from  O  and  perpendicular  to  X  such  that  (X,  Yf  Z) 
is  a  right-handed  system 

Z  is  a  vector  perpendicular  to  the  equatorial  plane  and  directed 
north. 

In  P  =  P(x,  y,  z,  x,  y,  z),  x,  y,  z  are  components  of  position  of  the  body 
in  the  X,  Y,  Z  directions  respectively,  and  x,  y,  z  are  its  components  of 
velocity  in  these  directions. 
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6.  2  GEOCENTRIC  POLAR  SPHERICAL  (ADBARV)  SYSTEM 

The  position  and  velocity  of  a  body  at  point  P  are  P  =  P(a,6 , 0,  A,  r,  v) 

Z 


where  V  is  a  vector  equal  in  magnitude  and  direction  to  the  velocity  of  the 
body  at  point  P,  and  where  X  is  a  vector  from  O  in  the  equatorial  plane 
directed  to  the  true  vernal  equinox  at  O.Oh  universal  time  on  the  day  of 
epoch. 

In  P  =  P(q,  6,  (3,  A,  R,  v) 

a  is  the  right  ascension  of  P 
5  is  the  declination  of  P 

0  is  the  flight  path  angle  measured  positive  downward  from 
the  geocentric  vertical  at  P  to  the  velocity  vector 

A  is  the  azimuth  of  the  velocity  vector  measured  positive 
clockwise  from  true  north  to  the  projection  of  the  velocity 
vector  in  a  plane  normal  to  the  local  geocentric  vertical 

r  is  the  geocentric  range  to  P 

v  is  the  magnitude  of  the  velocity  vector,  V. 
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6.  3  GEOCENTRIC  POLAR  SPHERICAL  (XDBARV)  SYSTEM 

The  position  and  velocity  of  a  body  at  point  P  are  P  =  P(X,  6  ,  p,  A,  r,  v) 


Z 


where 


X  is  a  vector  from  O  in  the  equatorial  plane  directed  to  the 
true  vernal  equinox  at  O.Oh  universal  time  on  the  day  of 
epoch 


a  is  the  right  ascension  of  the  Greenwich  meridian  at  time  t 


a  =  a  +  w  (t 
g  go  e 


M 


) 


a  is  the  right  ascension  of  the  Greenwich  meridian  at  time  tw 

go  °  M 

tj^  is  0.  Oh  universal  time  at  day  of  epoch 

u>  is  the  rate  of  earth  rotation, 
e 

In  P  =  P(X,  6,  p,  A,  r,  v,  ) 

X  is  longitude  of  P,  measured  positive  eastward  from  the 
Greenwich  meridian. 

5,  p.  A,  r,  V  are  the  same  parameters  as  defined  in  Section  6.  2. 


6-4 


6.  4  ORBIT  PLANE  (U,  V,  W)  SYSTEM 


Deviations  in  position  and  velocity  of  a  body  at  C  are  C  =  C  (u,  v,  w# 
u,  v,  w) 


where 

O  is  the  center  of  the  earth 

C  is  the  center  of  a  body  in  orbit 

U  is  the  vector  from  C  collinear  to  a  vector  from  O  to  C 

V  is  the  vector  from  C  perpendicular  to  U  and  lying  in  the 

orbit  plane 

W  is  the  vector  from  C  which  completes  a  right  handed 
coordinate  system 

•  •  • 

In  C  =  C  (u,  v,  w,  u,  v,  w),  u,  v,  w  are  the  components  of  the  deviation 

in  position  of  the  body  in  the  up,  down,  cross  or  u,  v,  w  directions  respec- 
•  •  • 

tively;  and  u,  v,  w  are  its  components  of  deviation  in  velocity  in  these 
directions. 
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6.  5  OSCULATING  CLASSICAL  ELEMENTS 


The  position  and  velocity  of  a  body  at  point  P=P(a,  e,  i,  0,  u),  M). 
These  elements  are  defined  at  the  time  associated  with  the  Cartesian  vec¬ 
tors  of  position  and  velocity.  The  osculating  classical  elements  are  ref¬ 
erenced  to  the  equatorial  plane  and  the  vernal  equinox  at  0.  Oh  Greenwich 
mean  time  on  the  day  of  epoch.  The  elements  are  printed  at  each  update 
time.  A 


where 


X  is  a  vector  from  O  in  the  equatorial  plane  directed  to  the  true 
vernal  equinox  at  0.  Oh  Greenwich  mean  time  on  the  day  of  epoch. 


In  P  *  P(a,  e,  i,  Of  co,  M) 

a  is  the  semi-major  axis 

e  is  the  eccentricity 

i  is  the  orbit  plane  inclination  to  the  equatorial  plane 
Q  is  the  right  ascension  of  the  ascending  node 
U)  is  the  argument  of  perigee 

M  is  the  mean  anomaly 
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6.  6  INDETERMINACY  FREE  ELEMENTS 


The  position  and  velocity  of  a  body  at  point  P  are  P(l/a,  r^,  u^, 

-yjp,  v^,  Dq) .  These  are  called  the  indeterminacy  free  osculating  elements 
at  the  given  update  times.  They  have  been  included  to  circumvent  the 
indeterminacies  which  are  inherent  in  the  "classical  set"  (a,  e,  Q,  i,  T) 
for  certain  types  of  orbits.  For  example:  when  i  =  0,  Q  is  undefined; 
when  e  =  O.cj  is  undefined. 


whe  re 

X  is  a  vector  from  O  in  the  equatorial  plane  directed 
to  the  true  vernal  equinox  at  0.  Oh  universal  time  on 
the  day  of  epoch. 

In  P  =  P(l/a,  r  ,  u  ,  Vpv  »  D  ) 
o  —  o  —  o  o 


l/a  is  the  inverse  of  the  semimajor  axis 

rQ  is  the  magnitude  of  the  position  vector  at  the  update 

time 


uq  is  the  unit  vector  collinear  with  the  position  vector 
at  the  update  time 
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Vpv  is  the  vector  in  the  orbit  plane,  orthogonal  to  u  , 

with  magnitude  of  the  square  root  of  the  semi- 
latus  rectum 

D  is  the  scalar  product  of  position  and  velocity  vectors 

at  the  reference  time 

In  order  that  a  set  of  orbital  elements  be  useful,  it  should  provide 
a  description  of  the  orbit  that  is  easily  understood,  as  well  as  define 
position  and  velocity  at  epoch.  Ease  of  two-body  position  and  velocity 
prediction  is  also  of  importance.  The  indeterminacy  free  elements  are 
useful  because  (a)  they  are  determinate  for  all  types  of  orbits;  (b)  they 
retain  some  descriptive  value  which  is  nearly  equal  to  the  "classical  set,M 
and  certainly  better  than  _r  and  _r  and  (c)  two-body  position  and  velocity 
predictions  are  easily  accomplished  using  a  single  set  of  equations. 

The  equations  of  condition  on  the  unit  vectors  are  as  follows: 

u  *  u  =1 
—  o  — o 

Vpvo  '  V^o  =  P 
ypjf0*  “0  =  “0Vp ^o  =  0 

There  are  six  independent  orbital  elements;  i.e.,  nine  elements  related 
by  three  equations.  The  manner  in  which  these  elements  reduce  to  the 
minimum  set  required  to  define  each  orbit  type  is  detailed  in  Table  6.  1 
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Table  6.  1 


Summary  of  Conditions  Necessary  to  Define 
Each  Orbit  Type  with  Indeterminacy  Free 
Elements 


Orbit  Type 

Required 
Numbe  r 
of  Elements 

l 

a 

r  D 

o  o 

\feo  % 

Total 

Elements 

Equations 

of 

Condi  tion 

Circle 

4 

a 

=  r  0 

o 

7 

3 

Ellipse 

6 

9 

3 

Parabola 

5 

0 

8 

8 

Hype  rbola 

6 

9 

3 

Rectilinear 

Ellipse 

4 

Derived 

from 

0 

S 

1 

1 

a  *  Fo 

Rectilinear 

3 

0 

Derived 

0 

4 

1 

Parabola 

from 

1 

— ,  r 
a  o 

Ret  t  i  1  i  n  e  a  r 

4 

De  rived 

0 

5 

1 

Hype  rbola 

from 

1 

a’  ro 
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